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DEMOLIDOR 
2 K 

Jogo ammado. Iipo Mtperama 0 joge 
dor devera damollr uma pared* com 
uma boia qua te ancontra sempre am 
movimento 



JOGO DE GAMAO 
16K 



MONSTRO DAS TREVAS 
TRIDIMENSIONAL ■ 16K 

Impressionante jogo onda voce deve 
evilar o monstro das trevas. Tudo em 3 
dlmensdes 



Esie programs epresenta o tabuieiro no 
».di>o a uW>;a o eticiente codtgo de ma 
qu*r.i permitmdo 4 iquatrol mveis de 

rt>'.cu«d<*d*s de >ogo 



Min 



RALLY 

16K 

Emocionant* corrida de rally em um la 
brrmto. onda podarAo ser testados sua 
habiiidada a seus retlexos Para conse 
guir seu mtenlo voce devera evilar car 
ros ataque a obstaculos am seu trajeto 



INVASORES DO 
ESPAQO 16K 



LABIRINTO 

TRIDIMENSIONAL ■ 16K 

jogo em ires dimensoes O jogador po 
de r « ce»mir a diitcuidada do Labmnto 
0 program* apresenia a posicao do jo- 
gador em perspective Err qualquer mo 
memo e possivei pedu su«>iro ao com 
PutadO' 



Consista da uma Irota da naves invaso 
ras extraterrenas. descendo no planeta 
Terra Sua missAo a dastruir as naves 
mvasoras dispondo da arma de raios la 
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TKALC 

16K/64K 



TK MAN 
16K 

Jogo ammado onde deverao ser apaga 
dot lodos os pontmhos espalhados em 
um labmnto to programs contem 15 ti 
pos da labinntol Voce sera impedrdo a 
qualquer custo por 4 extraterrenos 
guard laes do labmnto. qua poderao ser 
combatidos com cargas de raios-lsser 



MATEMATICA I 
16K/64K 

Anaiise grafica da tuncoe* malemat 



Programs desanvoivido para catcuios 
numaricos em olanllha 0 usuano dan 



numaricos am planlina 0 usuano deli 
na as coiunas. as Imhas e as formulas 
aplicadas Similar ao lamoso Visica c 
De grande varsatilidada. esie programs 
perm ne a tormulaceo da calculos cien- 
tificos a comerciars. anaiise de tabeias 
numencas a outras aplicapoas 



cas resolucao da sistemas de equa 
coes imeares (16K 51 aquapdas'MK 95 



eq uacoesi. a Calcuio da integrals deti 
nidos 



TKADREZ II 
16K 

Este logo aprasente o tabuleno e as pe 
no mdec Permits a escolha de ate 
diliCuldad# 0 programa lor 
nece atjoalque' rnomamo a iislagem 
dos snees e*euiados a armazena em 
Hta a posicao d as poqas Eia podera re 






P 9 



»>p 






A® 







Expediente 



t 

Indice 



Editorial 



PUBLICAQAO: 

Micromega Publicagoes e Material 
Did^tico - Cx. Postal 60081 
CEP 06096 -Sao Paulo - SP 

DIRETOR: 

Pierluigi Piazzi 

JORNALISTA RESPONSAVEL: 

Aristides Ribas de Andrade F9 

ASSESSOR TECNICO: 

Flavio Rossini 

DIRETOR DE ARTE: 

Fernando Leoni 

ILUSTRAQOES: 

Fatima M. Rossini Gouveia 

ARTE E Dl AGRAMAQAO: 

E liana Santos Queiroz, 

Osmfcre Sarkis 

COLABORARAM NESTE 
NUMERO: 

Igor Sartoni, Samuel Ejchel, 

Dr. Joao Carlos Normanha Sales, 

Jaime Maia Neto, Luis G.C. Antunes 

CORRESPONDENTES: 

Londres - Robert L. Lloyd 
Paris — Alain Richard 
N. York - Natan Portnoy 
Milao — Licia Zappa 

DEPARTAMENTO COMERCIAL: 

Tel.: (011) 257-5767 

PUBLICIDADE: 

Lidia Pauluk, Mario Alves Vianna, 

Aurio L Mosolino 

VENDA DE ASSINATURAS: 

Carlos Henrique Oliveira 

GERENTE COMERCIAL: 

Gina Elimelek 

ASSISTENTE COMERCIAL: 

Atilio Debatin 

PERIODICIDADE: 

Mensal 

TIRAGEM: 

30.000 exemplares 

NUMERO 3: 

Distribuigao so para assinantes. 

S6 6 permitida a reprodugao total 
ou parcial das materias contidas 
nesta edigao para fins didaticos 
e com a previa autorizagao por 
escrito da editora. 

ASSINATURAS: 

12 meses: Cr$ 1 1 800,00 
Promogao especial at6 30 de setembro: 
Cr$ 9.900,00 com uma fita de brinde. 




Materia pag. 



Carta dos leitores. 2 

Mais tradugoes para o Basic TK . . . 6 

Matem^tica financeira em Basic ... 10 

Como colaborar com Microhobby. . 12 

Desgrilando 12 

Programa do mes 14 

Programa do mes 18 

A fita do mes 25 

Dicas 27 

Dicas 29 

Programa do Leitor 30 

Programa do Leitor 31 

Programa do Leitor 32 

Novidades 35 

Curso de Basic - Aula 3 38 

Curso de Assembly - Aula 2 42 

Quebra-Cabega 44 

Resposta do Quebra-Cabega 46 

Pequenos Anuncios 47 

Como fazer sua assinatura 48 

O que esta reservado para o n° 4 . . 48 



Em varias ocasioes ja deixamos bem 
c/aro que o enfoque de nossa publicagao 4 
muito mais didatico que jorna/istico. Que - 
remos, 4 Idgico, que o usuario do TK seja 
a/gu€m bem informado, mas tambdm, e 
principal mente, queremos que ele aprenda 
a tirar o maxi mo proveito de seu equipa- 
mento. O micro processador Z8Q, que 6 o 
coraqao do TK, tern fungdes apenas parcial - 
mente aproveitadas por quern programa em 
BASIC. Por isso entramos com esse nume- 
ro, no uni verso do ASSEMBL Y ( incidental - 
mente /'ASSEMBLER" nao e uma lingua- 
gem: 6 um programa que permite e/aborar 
programas em ASSEMBL Y). 

Como a linguagem de maquina 6 de ar- 
duo aprendizado , a nossa preocupagao di- 
datica nos diz para nao correr. Por isso, en- 
quanto o curso de ASSEMBLY do Flavio 
Rossini avanga, os artigos da revista neste 
tema se fimitarao, por enquanto, a ensinar 
o leitor a digita-los e uti/iza-los sem entrar 
em deta/hes sobre a linguagem em si. 

Quanto ao crescimento (e nao apenas 
fisico) de nossa revista, este numero o ja 
fa/a por si. So nos resta agradecer a avalan- 
che de no vos assinantes que apesar de al- 
guns tropegos e atrasos iniciais (que vamos 
levar a I gum tempo para consertar) confia- 
ram em nos e per mi ti ram a consolidagao 
deste empreendimento que abre um canal 
de dialogo, informagao e aprendizado para 
a comunidade cada vez mais vasta dos usua- 
rios do TK. 
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Caros amigos da Micr omega, 

Fiquei muito contente com o lanqamento da revista 
"Usucirios do TK". Era isso que fa/tava no mercado da 
inform&tica, uma revista dedicada somente para nds f que 
possufmos urn TK. Gostei muito dessa promoqao de as- 
sinatura, no qual, ganhamos uma fita de programas 
"gratis". Desejo-lhes todo o sucesso. 

Gostaria que me enviassem maiores informaqoes sobre 
o prog ram a "Barao Vermelho", o qual nao rodou direi- 
to em meu TK. 

Luciano Chaves (Florianopolis — SC) 



juntamente com o exemplar n9 1. Pediria entao que me 
informassem quando sera feito o envio da referida fita. 

Quero tamb&m parabeniza-los pelo conteudo do n9 
1 que pecou somente pelo reduzido numero de paginas. 
Acho que seria de in ter esse de tod os os lei to res que a 
revista tivesse o numero de paginas ampliado, abrindo 
novas seqoes, nao esquecendo, p or tan to da secao 
HOBB V prometida no exemplar n9 0, que nao apareceu 
no n9 1 e que me parece nao aparecera no n9 2. 

Jos6 Daniel Oliveira Vigario 



Caro Luciano, 

Obrigado pelo incentivo. Com relagao ao programa 
"Barao Vermelho", que fez tanto sucesso que foi at6 
copiado por outra revista do ramo, ele provavelmente 
nao rodou direito no seu TK pois ele nao possui 
SLOW. Para eliminar este inconveniente voce deve inse- 
rir apos cada instrugao PRINT uma instrugao PAUSE 
30. Desta forma a tela ficarS piscando mas dar3 para jo- 
gar. Se voce enviar o seu computador a tebrica da 
MICRODIGITAL, eles podem instalar o circuito SLOW 
para voce. Antes escreva uma carta para saber o custo. 

o 

Prezados Senhores, 

Ao folhear a revista MICROHOBBY, cujo primeiro 
exemplar recebi no dia 15/6, tive uma decepqao. 

Trata-se da fa/ta da seqao HOBBY indicada no exem- 
plar n9 0 como a seqao que apresentara projetos eletro- 
nicos para serem executados por todos os leitores, que 
como eu tern a eletronica como hobby. Nesta seqao, de- 
veria constar as informaqoes necessarias para a adapta- 
qao da funqao SLOW em nossos computadores. Che- 
guei a esta conc/usao lendo o ultimo paragrafo do pro- 
grama Boliche editado no exemplar n9 0, que informava 
que o numero 1 da revista trazia os deta/hes para acres- 
centar o SLOW em nossas maquinas. 

Gostaria tambem que me fosse sanada uma duvida 
quanto ao recebimento da fita brinde, pois nao a recebi 



Prezado Jos£ Daniel , 

Com relapao a fita brinde houve realmente urn atraso, 
motivado por varias coisas. Uma delas foi urn "grilo" re- 
lativo ao TK85 que nos fez interromper a produgao. 
Posteriormente, ela foi retomada a todo vapor e voce ao 
ler estas linhas ja deve te-la recebido. 

Com relagao ao numero reduzido de paginas, a revista 
que voce tern em maos ja e uma resposta. 

AsegaoHOBBY logo sedesenvolver^ a todo vapor Rece- 
bemos de nossos correspondentes mu itos projetos pa- 
ra "hobbystas" mas,infelizmente,nem sempre existem 
componentes nacionais disponiveis. Entretanto estamos 
fazendo as devidas adaptapoes para futura publicagao. 

Com relagao ao SLOW, quando escrevemos ". . . co- 
mo fazer para acrescentar SLOW a sua maquina." esta- 
vamos pensando em dar uma relagao de oficinas aptas a 
fazer tal adaptagao. 

Tal relagao ainda nao foi publicada pois aguardamos 
respostas de uma s£rie de cartas que enviamos para le- 
vantar tal lista. 

Ficamos muito surpresos quando percebemos que al- 
guns leitores estavam esperando o circuito. 

Muito bem, agora vamos ter que montar uma materia 
a esse respeito. Ela, porem, so podera ser publicada se 
nao violar segredos industrial das duas fabricas brasilei- 
ras envolvidas. 
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PrezacJos Senhores, 

Antes de mais nada , os meus cumprimentos pe/o /an - 
gamento de MICROHOBBY. Sem duvida nenhuma, o 
TK 6 o computador mais vend id o devido ao baixo custo 
(em re/agao aos outros micros existentes no mercado ) e 
a sua grande capacidade de operagao. Desejo muito su- 
cesso a voces, uma vez que nos, usuarios do TK so temos 
a ganhar com isso. 

Agora vamos as duvidas, para as quais pego a atengao 
e elucidagao de voces: 

1) Por que os "micros" nacionais sao muito mais earns 
do que os originais estrangeiros ? Seria ta/vez abuso da 
reserva de mercado? 

2) No nP 0 da MICROHOBBY, segao "Programa do 
Mes", no programa BO LI CHE, voces escreveram que no 
nP 1 seria mostrado como acrescentar "SLOW" aos 
TK's que ainda nao o tivessem. Nao mostraram e nao 
comentaram nada a respeito. Entao pergunto: como fa- 
zer para acrescentar "SLOW" ao meu TK? 

3) Como exp/icar o desempenho do programa "DEMO- 
LIDOR", da MICROSOFT, num TK sem SLOW? Isto 
sempre me deixou bastante curioso. 

4) Cade a fita brinde? Nenhuma noticia sobre e/a no 
nQ 1 . 

5) £ verdade que existem prob/emas com o joystick e a 
printer do TK? 

Luis Henrique B. de Miranda — B. Horizonte — MG 



Prezado Luis Henrique, 

Obrigado pelos cumprimentos. Elucidando suas duvi- 
das pela ordem: 

1 ) Se voce fizer as contas pelo cambio real e nao oficial, 
vera que os micros nacionais nao sao tao mais caros. 
al6m disso, voce deve saber que a "escala" de produgao 
influi significativamente no custo. 0 Brasil e urn pais po- 
bre, com urn povo pobre e poucos privilegiados podem 
se dar ao luxo de comprar urn micro: o TK que e o "pro- 
letario" dos micros custa 3 sal^rios mmirnos. Enquanto 
que no Brasil o numero de micros que usam a Ibgica 
SINCLAIR ainda est3 longe de 50000, no mundo (Ingla- 
terra, Italia, Franga, Estados Unidos e Canada) temos 2 
milhoes. 

2) Veja a resposta ao Jos6 Daniel 

3) Passamos a pergunta para a segao DESGRILANDO 
(pag. 12 ). 

4) Veja Jose Daniel 

5) Os recentes "pacotes" fecharam a importagao de uma 
pega vital para a impressora do TK. Enquanto perdurar 
esta proibigao vamos ter que aguardar mais urn pouco. 

0 Joystick nao tern problemas. Quern pode apresen- 
tar problemas 6 urn lote de maquinas que s6 funciona 



com joystick mediante a troca de alguns resistores. Se 
sua maquina tiver este problema fomos informados pela 
MICRODIGITAL que ela faz o ajuste citado gratuita- 
mente, correndo por sua conta apenes as despesas de fre- 
te. Basta enviar sua maquina para a MICRODIGITAL, 
mesmo que ela ja esteja fora de garantia. 

O 



Caro Senhor Diretor, 

Tendo recebido o nQ 1 da revista M/CROHOBBY, 
tomo a Uberdade de escrever-lhe esta curta missiva, pe/os 
fatos que passo a expor: 

1) Sou possuidor de micro NEZ-8000, que, ta/ como os 
primeiros TK82 fabricados, nao possui a mod a lid ad e 

"SLOW" 

2) Assim, examinando o nQ 0 da revista, reso/vi assina- 
fa, pois a p agin a 6 (Programa BO LI CHE) estava expres- 
samente dito que no nP 1 constariam as informagoes de 
"como fazer para acrescentar o SLOW a maquina." 

3) Qua / nao foi minha surpresa, ao verificar que no nP 
1 nao se fazia qualquer mengao a ta/ assunto. Ora, em 
tend end o que varios dos assinantes dessa revista, que co- 
mo eu depositaram irrestrita confianga em sua pub/ica- 
Qao, (o que , c£ entre nos, trata-se de risco inca/cu/ave/, 
nos dias em que vivemos) sao possuidores do NEZ-8000, 
acredito que a pretengao de muitas respostas nao foi 
atendida. 

4) £ c/aro que se eu fosse adquirir um micro hoje, opta- 
ria pe/os fabricados pe/a M/CROD/GITAL, recusando- 
me a adquirir qualquer produto da PROL0G/CA. 

5) Assim, como ta/ nao ocorreu, so/icito de V.Sa. que 
corrija esta fa/ha, publicando com urgencia o esquema 

do SLOW. 

Como sugestao proporia que pub/icasse, tambem, es- 
quema para se adaptar um ou dois joysticks (afina/ a 
M/CROD/GITAL tern que vende-los, nao?) no 
NEZ-8000 ou TK82C e modificagao do fundo e caracte- 
res no video (de preto e branco, respectivamente no 
NEZ-8000 para branco e preto e vice-versa no TK82C). 

Sergio R.M. Ferreira — Santos/SP 



Caro Sergio 

Calma! A maioria de suas duvidas ja foi esclarecida na 
resposta a carta do Jose Daniel. Apenas queremos acres- 
centar duas coisas: 

1 ) Este tipo de cobranga e muito bom (mesmo que nos 
sejamos o alvo), pois o consumidor brasileiro nao esta 
acostumado a estrilar para fazer valer seus direitos. 

2) A MICROMEGA, que edita a revista MICROHOBBV 
nao 6 da MICRODIGITAL, apesar de manter um estrei- 
to relacionamento com esta firma, por estar publicando 

uma revista do interesse de seus clientes. 0 teor de sua 

> 
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carta sugere uma interdependence que na realidade nao 
existe. De qualquer forma passamos uma cdpia de sua 
carta para a MICRODIGITAL, pois sua sugestao de 2 
joysticks 6 bem interessante. 

O 

Prezados Senhores, 

Com prazer, acuso o recebimento e agradeqo o envio 
do n9 1 de MICROHOBBY , a revista dos Usuarios do 
TK. 

Va/eu a pena esperar. A revista esta sensacional em to- 
dos os aspectos. Uma curiosidade: algu6m da Equipe e 
professor? Por favor , nao estranhem a pergunta; e que 
eu sou , e a linguagem da Revista , tao didatica, precisa e 
bem humorada, me soou "algo familiar". . . 

Assim sendo, somente posso aplaudir com entusiasmo 
o surgimento desta publicapao, que tenho a certeza, 
muito vira acrescentar e a enriquecer tudo o que ja exis- 
te entre nds sobre Informatica. 

Gostaria de saber se ja estao disponfveis os livros 
anunciados e, se ja estiverem, seus preqos e condi qoes 
de compra. 

Aproveitando a ocasiao , desejo submeter a considera- 
qao de V. Sas. duas duvidas relacionadas a programas: 

1) Em uma fita da Kristian chamada SPACE RAID , no- 
te i a present; a de uma instrugao REM enorme (tom a 
quase a tela toda), cheia de caracteres (aparentemente) 
sem sentido. 0 que pode ser isto? 

'2)0utra fita , da MICROSOFT chamada "Demo/idor", 
apresenta prob/emas ao se tentar carrega-la: quase sem- 
pre, ao final do carregamento, a tela fica cheia de listas 
irregulares ou se apaga t obrigando , em ambos os casos, 
a desligar momentaneamente o computador, para que 
as co i sas voltem ao normal, isto e, re tome o K. Se pos- 
sfvel, gostaria de uma palavrinha sobre isso. 

No mais, 6 aguardar ( ansiosamente ) o nQ 2 e reiterar 
meus mais entusiasticos votos de crescimento e pros- 
peridade para a Revista. 

Seja bem vinda, M/CROHOBBY\ 

Theodomiro Aguiar (Petropolis — RJ) 

Prezado Prof. Theodomiro, 

Realmente na equipe temos dois professores, o 
PIERLUIGI e o FLAVIO, ambos extremamente bem 
humorados (apesar das fitas-brinde) e estamos em vias 
de aumentar a equipe com mais urn. Isto nao e mera 
coincidence ou uma especie de "mafia pedagdgica", 
mas faz parte da prdpria filosofia desta publicagao: nos- 



sa finalidade nao 4 apenas "informar", mas principal- 
mente ensinar. Dai' o cunho mais didatico que jornalisti- 
co. Os livros anunciados estao em fase final de proces- 
samento gr^fico e brevemente serao lanpados no merca- 
do. 

Com relapao as duvidas sobre programas: 

1 ) A gigantesca instrugao REM na fita da Kristian arma- 
zena uma sequencia de bytes que constitui uma subroti- 
na em linguagem de maquina. A leitura de“LIFE" e 
"APAGANDO A TELA" publicados neste numero escla- 
recerao melhor. 

2) A fita deve estar com defeito ou sofreu, apos sua pro- 
dugao, algum acidente magnetico. Escreva a MICRO- 
SOFT, informando-se sobre a possibilidade de troca. 

Finalmente, obrigado pelas boas-vindas. 

O 

Prezados Senhores, 

Nao gostei muito do 19 numero da revista MICRO- 
HOBBY. Achei-a muito pequena e incompleta, apenas 
16 paginas. A seqao de D/CAS, a meu ver, estava fraca 
e nao achei nada sobre a seqao HOBBY. Envio um pro- 
grama de min ha autoria na esperanqa de que a revista 
me/hore, principa/mente que e/a cresqa no tamanho. 
Trata-se do conhecido "Jogo da Forca" e ocupa quase 
3 K bytes. Aproveitando esta envio algumas perguntas: 
A impressora usada pelo TK82C 6 de boa qualidade? 

Efa imp rime todo tipo de sfmbolos gr&ficos? 

Ela usa papel especial? 

Como 6 feita a impressao? 

0 que significa e/etro-sensfvel? 

A impressora necessita de interface? 

Ha necessidade de alguma modificaqao no computador? 
Se houver quanto custa e quanto tempo leva? 

Fernando Araujo Lppes (Sao Paulo — SP) 



Caro Fernando, 

Como voce pode ver a revista ja cresceu bastante, gra- 
gas a pessoas como voce ou o Sergio que apesar de nao 
gostarem do comego e nao confiarem muito, nos deram 
uma forga e permitiram que a revista melhorasse cada 
vez mais. 

Infelizmente nao podemos aproveitar o seu "Jogo da 
Forca", pois as gavetas da redagao transbordam com os 
"Jogos da Forca" ja enviados. Queremos aproveitar a 
oportunidade para avisar o pessoal : 

Forca 

Senha 

Velha 

Invasores 

nao serao mais publicados, ta?! 

Respondendo a suas perguntas: 

A impressora usada pelo TK (por enquanto a versao 



4 MICROHOBBY 



inglesa, enquanto a brasileira tiver dificuldades de im- 
portagao de pegas) b de boa qualidade, imprime todos os 
si'mbolos que aparecem na tela e algo mais (veja "GRA- 
FICOS EM ALTA RESOLUQAO no nP 2). 0 papel 6 
especial: ele b revestido por uma fim'ssima camada metb- 
lica sobre um fundo escuro. 

Um estilete o percorre em alta velocidade. Como o 
papel e condutor de eletricidade, quando no estilete e 
aplicado uma tensao elbtrica, dele salta uma faixa que 
faz o revestimento metblico se evaporar num ponto. Sob 
este ponto aparece o fundo escuro. Todas as cbpias dos 
programas editados nesta revista sao tiradas numa im- 
pressora deste tipo. 0 TK aceita esta impressora direta- 
mente na conexao da expansao de membria. Como a co- 
nexao da impressora b do tipo macho de um lado e fe- 
mea do outro, a expansao de membria pode ser ligada 
ao computador simultaneamente com a impressora. Jb o 
CP 200 e o NEZ8000 da PROLOG ICA precisam de uma 
pequena adaptagao, pois em sua fabricagao foram utili- 
zados conectores traseiros incompativeis com os equipa- 
mentos SINCLAIR. 

Temos noti'cias, inclusive, que dao conta de uma prb- 
xima fabricagao de interfaces que permitirao conectar os 
TKs com as impressoras nacionais usando papel comum. 
Obviamente estas impressoras sao muito mais caras. 



Prezados Senhores, 

Meu nome 6 Marcelo Arouca Araujo e tenho 14 anos. 
Eu sou fa de e/etronica e de computaqao, sei um pouco 
das duas. Quando comprei o meu computador , pensei 
em fazer um curso de BASIC , mas depois resolvi apren- 
der sozinho, apenas o/hando o manual que vem junto. 
Eu sei alguma coisa , mas isso nao b suficiente ainda para 
poder fazer programas comp/icados , por isso eu mando 
para voces este programa simples. Com o tempo eu espe- 
ro me/horar e poder mandar programas a a/tura desta 
revista. 

Eu gostei muito da primeira aula e das D/CAS. Com a 
primeira aula da revista aprendi com mais deta/hes o que 
eu j6 sabia, mais ou menos. 

O programa que mando para voces b muito famoso, 
chama-se Forca. 



Caro Marcelo, 

Se voce der uma lida nas outras cartas verb que nao 
publicamos Jogo da Forca. Apesar disto ficaremos mui- 
to felizes em receber outras colaboragoes suas. Mesmo 
programas "simples" podem ser muito uteise neste caso 
serao impressos. Temos certeza, tambbm, que logo logo 
voce estarb desenvolvendo coisas em m'vel "profissio- 
nal r \ 

O 



Prezados Senhores, 

Tudo muito bem, tudo muito dtimo. Mas ser£ que 
nao esqueceram algo? Se nao me engano, eu deveria re - 
ceber uma ou duas fitas justamente pelo fato de ser as- 
sinante desta (bri/hante) revista. 

A propdsito: Serb que os senhores poder iam enviar 
maiores deta/hes sobre ' TIG-LOADER "? (pag. 11 - 
nQ 1 ), ou deveria escrever para tal firma? 

Roberto Araujo (Rio de Janeiro — RJ) 



Caro Dr. Roberto, 

A fita b sb uma (com dois jogos) e ja foi enviada. Des- 
culpe pelo atraso. Com relagao ao TIG- LOADER, aqui 
na redagao testamos um prototipo, mas nao temos maio- 
res detalhes tbcnicos ou comerciais. Acho que a solugao 
b escrever para a firma. 

Um abrago. 



Caro Editor, 

Recebi meu 19 numero da revista Microhobby e gos- 
tei muito. 

Aproveitei todos os programas, principa/mente o utili- 
tdrio. Gostaria de sugerir que fosse este transformado 
em linguagem de mAquina. 

Gostaria de saber em que livraria ou representante do 
TK, na regiao de Campinas, poder ia encontrar as novi - 
dades anunciadas na pagina 12. 

A unica coisa que me entristeceu ao receber este nu- 
mero foi a fa/ta de tao decantada fita com os jogos, por 
isso, pe$o ao senhor a genti/eza de enviar-me uma fita, 
pois nao gostaria de comeqar mal a minha colegao. 

Claudio S. Tonhetta (SumarS — SP) 



Prezado Clbudio, 

Os livros anunciados serao langados brevemente, pois 
estao na fase final de processamento. A fita jb foi envia- 
da e com relagao a transformagao do programa do 
BASIC para ASSEMBLY temos uma sugestao. Estude 
com cuidado as ligoes que estamos publicando e logo 
voce estarb em condigoes de fazer isto sozinho. Quan- 
do isto acontecer publicaremos seu programa com mui- 
to prazer (e muito orgulho). 



MICROHOBBY 5 




MAIS TRADUgOES 
PARA O BASIC TK 

Igor Sartoni 



No numero anterior de nossa revista falamos sobre a 
instrupao IF THEN ELSE . . . , comum a v^rios 
computadores, mas que, por razoes construtivas, nao foi 
incluida no conjunto de instrupoes do TK. Todavia, com 
urn pouco de imaginapao, conseguimos contornar o pro- 
blema. Sabemos que esta nao 6 a unica instrupao que 
nao faz parte dos recursos do TK e de computadores si- 
milares. Alem disso, e comum em alguns computadores, 
como, por exemplo, no TRS-80, o uso de instrupSes 
IF THEN . ELSE encadeadas, o que pode dificul- 
tar a tradupao de urn programa para outro. 

Condicionais Encadeadas 

Chamamos de condicionais encadeadas duas ou mais 
instrupoes IF THEN . ELSE . dispostas de tal 
forma que uma condicional permite ou nao o acesso a 
uma outra condicional, com a seguinte estrutura: 

I F ! (condipao 1) THEN IF 2 (condipao 2) 
THEN IF n (condipao n) THEN (funpao ou operapao 
n + 1) ELSEn (funpao ou operapao n) . . . ELSE 2 (fun- 
pao ou operapao 2) ELSEt (funpao ou operapao 1 ). 



Por exemplo: 



10 IF X = 0 THEN IF Y = 0 THEN IF Z = 
0 THEN LET A = 0 ELSE LET A = 1 ELSE LET B 
= 1 ELSE LET C = 1 



Este tipo de estrutura pode ser compreendido como 
uma operapao matematica com diversos niveis de paren- 
teses. Assim, a primeira condicional IF "fecha" com a 
ultima condicional ELSE, a segunda com o penultimo, 
e assim por diante. 

Levando isso em considerapao, podemos "quebrar" 
esta linha de programa em tres partes: 



1 ) IF X = 0 THEN ELSE LET C = 1 



2) IF Y = 0 THEN ELSE LET B=1 
IF Z = 0 THEN LET A = 0 ELSE LET A = 1 

> 
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Se voce observar bem, o que isto pode significar 6 que 
podemos transformer esta I inha de programa em outras 
tres, desde que consigamos preencher o espago em bran- 
co entre as palavras THEN e ELSE. 

Para preencher este espago, devemos nos lembrar o 
que uma instrugao desta natureza faz. A primeira coisa 
que devemos levar em conta 6 que, nesta I inha de pro- 
grama, se a condigao X = 0 for satisfeita, a condigao 
Y = 0 deve ser verificada. Do mesmo modo, se a condi- 
gao Y = 0 for satisfeita, deve-se verificar a condigao 
Z = 0. 

As 's/m, o que devemos fazer apos verificar uma dada 
condigao 6 verificar a condigao seguinte. Levando isso 
em conta, a linha de programa em questao pode ser rees- 
crita da seguinte forma: 



10 IF X = 0 THEN GOTO 20 ELSE LET C = 1 

20 IF Y = 0 THEN GOTO 30 ELSE LET B = 1 

30 IF Z = 0 THEN LET A = 0 ELSE LET A = 1 



40 . (sequencia do programa). 

Existe um pequeno problema, que deve ser contor- 
nado: ao completarmos uma linha em um programa em 
BASIC, o computador executar^ imediatamente a linha 
seguinte. Entretanto, a linha seguinte cont6m uma com- 
paragao que s6 deve ser feita se e somente se a compa- 
ragao anterior for verdadeira. Da forma em que se 
encontra a nossa solugao, se a primeira condigao for ver- 
dadeira, a segunda condigao 6 verificada. Se for falsa, C 
e igualado a 1 e a segunda condigao 6 verificada, coisa 
que nao queremos. Para que isso nao ocorra, devemos 
desviar da linha que cont^m a comparagao seguinte por 
meio de um desvio incondicional. Assim; 



10 IF X * 0 THEN GOTO 20 ELSE LET C = 1 
15 GOTO 40 

20 IF Y = 0 THEN GOTO 30 ELSE LET B = 1 
25 GOTO 40 

30 IF Z = 0 THEN LET A = 0 ELSE LET A = 1 

40 . . . (sequencia do programa) 



Resta mais um problema: a condicional ELSE. Para 
resolver este problema, recorreremos a uma das solugoes 
que indicamos no artigo que publicamos no numero an- 
terior desta revista. Assim, por exemplo, o trecho onde 
aparecem as linhas 10 e 15 ficara: 



10 IF X= 0 THEN GOTO 20 
12 IF X<> 0 THEN LET C = 1 
15 GOTO 40 

Da mesma forma, poderemos aplicar esta solugao para 
as outras linhas do programa, onde aparecem condicio- 
nais ELSE. 



INPUT multiplo e com mensagens 

Algumas vezes encontramos, em alguns programas de- 
senvolvidos para outros computadores, INPUT em que 
sao pedidas mais de uma vari£vel e, aldm de tudo, apare- 
ce uma mensagem qualquer, por exemplo: 

10 INPUT "ENTRE COM OS VALORES DE 
A E B", A.B 

Quando aparecer um INPUT com mensagens, o com- 
putador primeiro imprimira a mensagem e ficara aguar- 
dando a introdugao dos valores. No nosso exemplo, sao 
apenas dois valores. Devemos digitar o primeiro valor pe- 
dido, uma vfrgula e o segundo valor pedido, e, entao, 
digitar ENTER 

No TK e em computadores semelhantes, tanto ha 
mensagem como varias variaveis de entrada nao podem 
ser digitadas na mesma linha. A solugao e decompor es- 
ta instrugao em varias outras, levando em consideragao 
tambem que, numa instrugao INPUT, em alguns com- 
putadores diferentes do TK, uma vez digitada a tecla 
ENTER, o valor digitado e impresso imediatamente. 

Tendo isto em mente, podemos reescrever a linha em 
questao da seguinte maneira: 



2 PRINT "ENTRE COM OS VALORES DE 

A E B" 

3 INPUT A 

4 PRINT A 

5 INPUT B 
10 PRINT B 



Nem a disposigao das variaveis nem a mensagem preci- 
sam ser rejeitadas. 0 melhor que devemos fazer e adap- 
tar o trecho do programa as nossas necessidades e com o 
nosso gosto. Assim, poderemos, por exemplo, dar a se- 
guinte forma ao trecho de programa em questao: 

10 PRINT "QUAL 0 VALOR DE A?" 

20 INPUT A 
30 PRINT A 

40 PRINT "QUAL 0 VALOR DE B?"; 

50 INPUT B 
60 PRINT B 

> 
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ou ainda: 

10 PRINT "A = ”, 
20 INPUT A 
30 PRINT A 



ON A GOTO n9 de linha 1, n9 de linha 2, n9 de linha 3 
. . . n9 de linha n. 



A instrugao ON A GOTO tern como fungao enviar o 
programa para uma entre varias alternativas dadas por 
uma condigao, representada por uma variavel inteira, 
cujo nome 6 escrito por uma unica letra (por exemplo, 
K). Por exemplo, na linha de programa: 

10 ON C GOTO 100, 230, 350 

Se C for 1,o computador vai executar a linha 1 00; se 
for 2, 230 e, se 3, 350. Se C for menor do que 1 ou 
maior do que n (no caso, 3), o programa vai para a linha 
seguinte. Os numeros de linha nao precisam estar em se- 
quencia. Assim: 

100 ON G GOTO 400, 10, 350 

Se G for 1, o programa ira para a linha 400, se for 2, 
para linha 10 e se for 3, para linha 350. 

Se voce quiser usar este recurso em seu TK voce po- 
derS usar um dos ”macetes que mostraremos a seguir”. 



19 caso: o programa original apresenta os numeros de 
linha apos o GOTO numa sequencia crescente de 
multiplos de um mesmo numero inteiro. 

Suponha que o programa que voce quer ”traduzir” 
para seu computador tenha a seguinte linha: 

50 ON A GOTO 100, 200, 300 

Note que os numeros de linha estao numa sequencia 
crescente de numeros inteiros, todos multiplos de 100. 
Para este caso, podemos usar: 

50 GOTO 100* A 

60 . . . (sequencia do programa) 

Todavia, a instrugao ON A GOTO . . faz ainda outra 
coisa: se A for menor que 1 ou maior que 3, o compu- 
tador executar^ a linha seguinte. Para completar o traba- 
Iho, devemos acrescentar a linha: 

45 IF A < 1 OR A > 3 GOTO 60 
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29 caso: o programa original apresenta quaisquer 
numeros de linha apos o GOTO. 

Quando o programa original apresenta quaisquer nu- 
meros de linha apos o GOTO s6 podemos langar mao de 
condicionais do tipo IF . THEN Isto e possi'vel por- 
que o A ou a variavel que indica o desvio pode ser enca- 
rada como uma variavel que deve atender a uma dentre 
n condigoes. Por exemplo, a linha: 

50 ON J GOTO 80, 10, 70 
Poder3 ser escrita como: 

50 IF J = 1 THEN GOTO 80 

55 IF J = 2 THEN GOTO 10 

57 IF J= 3 THEN GOTO 70 

60 . . . (sequencia do programa) 



Neste caso, nao e necess^rio acrescentar nenhuma li- 
nha referente a comparagao com valores menores que 1 
e maiores que n, pois o programa segue automaticamen- 
te para a linha seguinte, ap6s passar por todas as compa- 
ragoes. 



Conclusao 

Existem muitos outros problemas encontrados por 
quern deseja rodar um programa de outro computador 
no TK ou em computadores com a mesma logica. Ainda 
existem outras instrugoes que podem ser encontradas 
em outros computadores e nao no TK (ou encontradas 
sob uma sintaxe diferente) e muitas delas poderao ser fa- 
cilmente implementadas no seu computador. A recipro- 
ca tambbm b verdadeira. Existem fungoes que aparecem 
no TK e nao aparece em outros computadores, que obri- 
gam seus usu^rios a langar mao de outros recursos para 
contornar o problema. Um exemplo tipico e a fungao 
PAUSE que normalmente nao e encontrada em outros 
computadores. 

Isso nao torna o BASIC do TK inferior ao dos demais 
computadores, pois cada fabricante deu uma prioridade 
diferente ao seu projeto. No caso do TK, a orientagao 
foi torna-lo compacto e a um prego acessfvel, com um 
hardware mi'nimo. 0 resultado foi uma linguagem 
BASIC um pouco diferente das demais, contendo instru- 
goes completas em cada tecla, ocupando um pequeno 
espago na membria de programa. 

Por outro lado, esta sbrie de artigos sera aberta a su- 
gestoes. Se voce deparar com um programa de um outro 
computador que nao constguir traduzir, envie-nos uma 
copia, citando a marca e o modelo do computador e a 
instrugao que Ihe causou problemas. Se for possivel uma 
tradugao, a instrugao em questao podera ser objeto de 
um futuro artigo. 



L_ 



o 





VERBATIM ' 



PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 

QU ALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PRECO DO MERCADO. 



DATALIFE " diskettes sao produzidos com uma unica 
preocupacao: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas tecnicas 
de producSo e rigoroso controle de qualidade. 

DATALIFE " diskettes 8 ou 5 1 /4 polegadas tem 
certificacao 100% sem erros. 

A diferenca DATALIFE " d pura e simplesmente qualidade. 



ENTREGA IMEDIATA 



FD 34-9000 


simples face/simples densidade 
26setores 128 bytes/ setor 8 polegadas 


FD 34 8000 


simples tace/dupla densidade 

N3o setorizado nao formatado 8 polegadas 


DD 34 4026 


dupla face/dupla densidade 

26 setores 256 bytes/ setor 8 polegadas 


DD 34 4001 


dupla face/dupla densidade N3o setorizado 
nao formatado 8 polegadas 



Entrega a partir de setembro 1 983 



MD 525-01 


simples face/dupla densidade 
5 1/ 4 polegadas 


MD 550-01 


dupla face/dupla densidade 5 1 .4 polegadas 



Em embalagem de cartao com 10 umdades 
Caixas pl£sticas opcionais 



PARA ENCOMENDAS FORA DE SAO PAULO, 
Revendedores e Fabricantes interessados. A MEMPHIS PAGA A LIGACAO. 

tel: (01 II 262-5332 D/SQUE (01 1) 900-8462 



Distribuidor: DleilipIllS 

Industria e Comercio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - Sao Paulo - Brasil 
CEP 01236 - PABX (011) 262-5577 - Telex (011) 34545 
Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 
Matriz: Av. Angelica, 35 - Sta. Cecilia - Sao Paulo - Brasil - CEP 01227 





MATEMATICA FINANCEIRA 
EM BASIC TK 



Flavio Rossini 




Muitas pessoas se lamentam da falta de comandoses- 
peci'ficos em BASIC que tornem as "entradas" e "sal'- 
das" de dados num^ricos compatfveis com o padrao uti- 
lizado em aritm^tica financeira, ou seja, numeros encos- 
tados a direita (e nao a esquerda), com duas casas depois 
da vi'rgula (e nao ponto) e com urn ponto entre cada 3 
algarismos. De fato, £ desagrad^vel ver os "milhoes" na 
mesma coluna dos "milhares" ou entao ver dados com 
mildsimos de cruzeiros. 

Cr$ 1934.8769 
Cr$ 7.9815 
Cr$ 299873.4 
Cr$ 9 

CrS 10.056 

Apesar de outras linguagens como o FORTRAN, e 
principalmente o COBOL, fornecem facilidades para o 
manuseio de numeros nestes formatos, em BASIC isto 
tambem £ possivel. . . 

.Para tanto, desenvolvi duas subrotinas em BASIC para 
o TK que executam, respectivamente, a "entrada" e 
"sai'da" de dados no padrao financeiro. Analizemos, pri- 
meiramente a entrada de dados; ela deve aceitar nume- 
ros com 'V' e por exemplo: 

1 .345.003,37 



e transforma-lo para a maneira que o computador esti 
"acostumado" para a execuqao de c^lculos, ou seja: 



1345003.37 



Assim temos: 



990 REM JfPLfiUIO ROSSINI 1983f* 
995 REM SR P/ENTRRDR DE DADOS 
Os FORMRTO FINRNCEIRO 
1000 FAST 
1005 INPUT R$ 

1010 LET L =LEN R$ 

1015 DIM B$(L) 

1020 FOR U=1 TO L 

1025 IF <>•*•- THEN LET B$(U 

) =R$ (U) 

1030 IF A$(U) s’'/* THEN LET B$ (U) 

_ II M 

1035 NEXT U 

1040 LET N =UAL B$ 

1050 RETURN 

fig. 1 

Esta subrotina simplesmente retira todos os do 
dado entrado e substitui a por urn deixando o 
valor num^rico para Ccllculos na vartevel N. 

A subrotina para executar a "sai'da" de dados, ou se- 
ja, transformar um numero no formato do computador 
para o formato financeiro, 3 bem mais complexo. Ela 
consta de tres mbdulos b^sicos: 

a) ajustar o numero para duas "casas" apos o " " (que 
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ser£ substitui'do por uma vi'rgula) para os trescasos pos- 
siveis: nenhuma casa ap6s o (variavel inteira) , uma 
casa ap6s o e duas ou mais casas apos o 

b) colocar um entre cada 3 algarismos antes da vi'rgu- 
la 

c) imprimir o numero encostando-o a direita na vig^sima 
coluna. 



1090 REM **F LflvIO ROSSINI 1983** 
1095 REM SR P/SRIE'R DE DRDOS 
C/PORMflTO PINRNCEIRO 
1100 FfiST 

1105 REM MODULO R 
1110 LET N$=STR$ N 
1115 LET L=LEN N$ 

1120 FOR U = 1 TO L 

1125 IF N$ CU> =" . THEM GOTO 114-0 

113© NEXT U 

1135 LET N$sN$* a> 

1140 LET N$ ( U) = ” , “ 

1145 LET N$sN$+ M 0 M 

1150 LET L=U+2 

1155 LET N $=N$C TO L) 

1160 REM MODULO B 
1165 LET L=L~3 
1170 LET LsL-3 

1175 IF L < =0 THEM GOTO 1210 
1160 LET C$sN$ ( TO L) 

1185 LET N$(L3 

1190 LET L TO ) 

1195 LET N$sC$*N$ 

120© GOTO 117© 

1205 REM MODULO C 

121© PRINT M CR$ ” ; TRB (21-L) ;N$ 
122© SLOU 
1225 RETURN 

tig. 2 



105 PAUSE 120 
110 CLS 
115 NEXT I 
120 FOR 1=1 TO 3 

125 LET LUCRO= CK (1,2) *0.01) *K Cl 
1 ) 

130 PRINT “PRODUTO 

135 LET N aK (1,1) +LUCRO 

140 PRINT TRB 5; M PRECO DE UENDR 

145 GOSUB SAIFIN 

150 LET NsLUCRO 

155 PRINT TRB 5; H LUCRO M 

160 GOSUB SAIFIN 

165 PRINT 

17© NEXT I 

175 PRINT 

18© PRINT ** BFE” 

190 STOP 

HMmmmmmM mmmmmm mmmmmmmammrnm 

EXEMPLO : 

NOME DO PRODUTO 1 7 
RBRCRXI 

PRECO DE GUSTO 7 
CR$ 56© 

PORCEHTRGEM DE LUCRO 7 
71,87 POR CENTO 



PRODUTO RBRCRXI 

PRECO DE UENDR 

CR$ 962 t 47 

LUCRO 

CR$ 402,47 

PRODUTO BRNRNfi 

PRECO DE UENDR 
CR$ 619,9© 

LUCRO 

CR$ 262,4© 



0 numero a ser colocado deve ser colocado na varia- 
vel N. A ti'tulo de exemplo, vamos apresentar um peque- 
no programa que utiliza estas subrotinas; voce fornece o 
prego de custo de 3 produtos e a porcentagem de lucro 
desejada para cada um e ele fornece o prego de venda e 
o lucro . . . 



5 REM **FLPUIO ROSSINI 1983** 
10 REM EXEMPLO DE RPLICRCRO PR 
RR 3USROT IMPS FINRMCEIRRS 
20 SLOU 

25 LET ENTFIN=1000 
30 LET SRIFIN=1100 
35 DIM P$(3,14) 

4© DIM K (3 , 2) 

45 FOR 1=1 TO 3 

50 PRINT -NOME DO PRODUTO ” ; I , 

7 ** 

55 INPUT PsMI) 

6© PRINT P$<I) 

65 PRINT ‘PRECO DE CUSTO 7" 

70 GOSUB ENTFIN 
75 LET K Cl, 1) =N 
80 PRINT **CR$ ”;R$ 

85 PRINT "PORCENTAGEM DE LUCRO 

7 " 

90 GOSUB ENTFIN 
95 LET K (1,2) =N 
100 PRINT R*; “ POR CENTO" 



PRODUTO CRUIRR 

PRECO DE UENDA 

CR$ 27.268,37 

LUCRO 

18.280,77 



3FE 



fig. 3 



Note que as subrotinas utilizadas apenas "truncam" 
as duas casas depois da vi'rgula; se for necessario um "ar- 
redondamento" do resultado, bastaria, por exemplo, an- 
tes de entrar no modulo B da subrotina de sai'da, restar 
o valor do caractere N$ (L+1); se VAL NS (L+1) for 
maior do que 5, basta somar 0,01 ao resultado; caso 
contrario, nenhuma providencia devera ser tomada. Ten- 
te fazer isto. £ um bom exercfcio e o ajudara a entender 
as subrotinas aqui apresentadas 

O 
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COMO COLABORAR 
COM MICROHOBBY 



A revista MICROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participam do magico 
mundo da computagao. 

A caracteristica realmente inovadora do computador 
pessoal, est3 em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 
goes, recebendo remuneragao a ti'tulo de DIREITO 
AUTORAL. 

Se o material enviado for aprovado para publicagao, 
a remuneragao seri de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
ser3 aumentada, a critbrio da redagao, at£ Cr$ 30.000,00. 
Esta remuneragao sera oferecida tambam para artigos 
interessantes sobre o mundo do TK. 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece as seguintes normas: 

1 ) Nunca esquecer de colocar nome completo, enderego 
e numero de sua assmatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me* 
Ihor ainda, tirada na impressora do TK. 

3) Colocar sempre uma I inha REM com o nome do autor 
e o ti'tulo do programa 

4) Enviar uma fita com o programa gravado algumas ve- 
zes (se possivel em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instrugoes uteis, nome completo e enderego do reme- 
tente. 



O material nao utilizado nao sera devolvido Esta e 
uma norma corrente em quase todas as revistas do mun- 
do, que gera porem, uma certa desconfianga: "e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o segumte 

Ao enviar o material para qualquer revista, voce, ou 
confia em sua seriedade, ou, e melhor nao enviar o ma- 
terial, reservando-o para uma publicagao di'gna de seu 
credito. 

Uma outra saida e a de tirar uma copia de todo ma- 
terial enviado e registra-lo em cartbrio, para qualquer 
reclamagao posterior. Obviamente tal procedimento s6 6 
aconselhavel se o material enviado for valioso a ponto de 
justificar toda essa mao-de-obra. 



6) O material deve ser enviado para: 

MICROMEGA P M.D. Ltda. 

PROGRAMAS DO LEITOR 

Cx. POSTAL: 60081 

CEP: 05096 - S. PAULO - SP 

7) Qualquer duvida, poder^ ser esclarecida pelo telefone: 

(01 1) 257-5767 com Roberto. 

Aguardamos sua colaboragao. 
O 



DESGRILANDO 



Prezados Senhores, 

Se ha um programa na memdria do computador e eu 
dou LOAD, para procurar um programa numa fita. 
O programa anterior se apagara ? Parcial ou total me nte? 
O programa da fita se carregara automaticamente? 

Jaime Jacobson 

Caro Jaime, 

Ao dar o LOAD o programa que esta na RAM 6 apa- 
gado totalmente para dar lugar ao novo. Se o novo nao 
estiver em boas condigoes voce fica com o computador 
vazio. 




Nisso e que reside a grande vantagem da fungao 
VERIFY do TK85: apos gravar uma fita voce entra com 
o programa, mas sem dar um LOAD. Se o programa gra- 
vado conferir com o original da RAM o computador 
acusara OK e voce podera deslig^-lo tranquilamente. 

O programa da fita carrega-se automaticamente se vo- 
ce digitar seu nome. Por exemplo, se voce tiver v^rios 
programas gravados numa unica fita e der o comando. 
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LOAD "FORCA" 

Com o gravador na posigao PLAY, a fita correra sem 
que o gravador aceite os programas que passam. Ao re- 
ceber, porem, uma sequencia correspondente a um pro- 
grama que foi gravado por um: 

SAVE "FORCA" 

o computador carregar^ sua RAM com ela. 

Prezados Senhores, 

No programa Barao Vermel ho, da pagina nP 5, da Re- 
vista dos Usuarios do TK nP 0, ha a / inha 180 que usa 
as fungoes PEEK, ou seja: 180 IF PEEK /PEEK 
16398 + 256 X PEEK 16399)= 128 THEN GOTO 310. 
Qua! £ o significado destas instrugoes ? 

Na I inha 215 e 240 trabalham com SGN que e outra 
duvida. 

Euiaiio Alves da Silva (Porto Velho - RO) 

Caro Eutelio, 

Os enderegos 16398 e 16399 contem dois bytes que 
indicam uma variavel do sistema denominada POSPR 
Esta variavel, por sua vez, indica a posigao do PRINT no 
arquivo de imagem. Para uma explicagao detalhada, po- 
rem, seria interessante que voce acompanhasse uma ma- 
teria a ser publicada no numero 4, justamente sobre a 
organizagao da memoria do TK. 

Por outro lado, a fungao SGN (tecla F) e facil de ser 
explicada. Ela assume o valor +1 se seu argumento e um 
numero positivo qualquer, —1 se for negativo e 0 se for 
nulo. 

Experimente fazer no seu computador o seguinte pro- 



graminha: 






10 


DIM 


R$ f 3 , 10) 




20 


LET 


(1) = M SGN 


89" 


30 


LET 


R$ (2) =“5GN 


0“ 


-10 


LET 


R$ (3) = M SGN 


—55’* 


50 


FOR 


1=1 TO 3 




60 


PRINT < I) ; •* =• 


• ; URL 


70 


NEXT I 





Ele vai Ihe explicar o SGN 

Prezados Senhores, 

. . . Como explicar o desempenho do programa " DEMO - 
LIDOR" da MICROSOFT num TK sem SLOW? Isto 
sempre me deixou bastante curioso . . . 

Luis Henrique B. de Miranda 



Caro Luis Henrique, 

A explicagao «§ simples: um computador que trabalha 
em FAST nao envia dados para a TV enquanto esta pro- 
cessando, por isso "perde o controle" de imagem. Um 
computador com circuito de SLOW usa este circuito co- 
mo uma esp^cie de interruptor : enquanto a tela est3 sen- 
do formada pela varredura, o computador £ obrigado a 
nao processar, mantendo a formagao da imagem sob 
controle. No breve intervalo de tempo entre o fim de 
uma imagem e o comego da seguinte ha um lapso de 
tempo durante o qual ele processa os dados pois neste 
intervalo nao ha problema em nao se enviar dados para a 
TV. 0 programa DEMOLIDOR £ uma obra prima da 
acrobacia de programagao: como cada instrugao em lin- 
guagem de mAquina tern um tempo de execugao muito 
bem determinado, a sequencia de instrugoes foi calcula- 
da de sorte a durar exatamente tanto quanto o lapso ci- 
tado. Ao terminar este lapso, o proprio programa faz o 
micro processador parar de processar durante a forma- 
gao de imagem. Note que, como o programa tern ramifi- 
cagoes, este calculo foi feito para todas elas. 

Em resumo, "DEMOLIDOR" 6 um programa que tra- 
balha aos 'solugos ' em perfeita sincronia com a varredu- 
ra da TV, simulando um SLOW por "software". 

O 



■=== LANQAMENTO . 

PASSAGEM PARA O INFINITO 

Sensacional jogo onde voce tentarA encontrar e sair com um fabuloso tesouro em um 
complexo labirinto. guardado por terriveis polvos monstros. e com mais de 400 pas 
aos Para ajuda lo. voce coniara com algumas espadas. que garanur&o sua sobrevi 
vencia na luta com os monstros, e com os pnsioneiros encarcerados nas verias pas 
sagens que Ihe indicarAo o caminho a segutr Totalmente em tinguagem de miquina 
com graficos fantasticamente arnmados e tres niveis de dificuldade para desafia lo 
Prego Crl 7 000.00 

MIDWAY 

Uma grande guerra mundial esta sendo travada nas aguas do AtlAntico Voce agora e 
o comandante do submarino atomico MIDWAY, sua missAo destruir todas as bases 
inimigas em aguas brasileiras Cuidadocom os navios. aviOese minas eijpalhados pe 
loa invasores Para auxiliA lo podera contar com uma frota de navios de reabasteci 
mento. vAnas bases aliadas e um computador de bordo Um grande desafio com grA 
ficos e varias rotmas em hnguagem de mAquina Prego Crl 5 000.00 

JORNADA NAS ESTRELAS 

A sua nave interplanetary KNTRF.PRISE necesstta livrar a galaxia dos invasores 
Klingon e voce como comandante da nave tera a Ardua rrussAo de destrui los Um 
jogo famoso no mundo tod<> em uma de suns melhores yersbes pela Softkristian. com 
efeibos grAficos sensacionats Pregc Crl 5 000.00 

8.* DIMENSAO 

Agora vocAjApodeterumfliperamaemseu microcomputador em2* DIMENSAOdois 
jogos agitadissimos para testar sua coordenagAo motora Em SPACE INVADER voce 
tern os origmais invasores atacando sua nave e em ASTEROI D voce deve pousar em um 
planet* e para laritodeverA ultrapassar osobstAculosque vAem A sua f rente teritarido 
destrui lo Orandes Jogos em Imguagem de mAquina Prego Cr$ 5 000.00 

VISITA AO CASSINO 

Quatro grandee jogos em um sb caga niqueis roleta 21 e perseguigAo fatal fazem 
parte deste sensacional conjunto Todos os jogos com grAf icos e rotmas em Imguagem 
de mAquina. para vocA que gosta de apostar e torcer Prego Crl 5 000 00 

10 JOGOS EXCITANTES PARA 1 K 

Dez pequenos Jogos para voce mcrementar e aprender bastante os efeitos de progra 
magAo de Jogos e trabalhoe com video Se voce nAo dispbe da expansAo de 1 6 K JA pode 
rA terentretenimentocom esta sensacional fita Se voce JAdispftede 16 K compre para 
incrementA los e ter A excelentes jogos Prego Crl 4 000.00 



Compre co'rvosco de ouaiquer oaoe do B»as' sem 
despesas adicuma'S enviando um cheque cruja 
do e nomina. a xfliSTiAN ElETRQNiCA itaa inio 
pieosa visan e garama o 'ecetumerMo oe nosso 
.ntormalivo NOV-DADES Kfl’STiAN joiatmente 
gratuilo 



Todas as fitas vAo em embalagem lacrada. com gravagAo prof issional para bus garan- 
tla. A Kristian trocarA qualquer fita que seja enviada com defeltos de fabncagAo 
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Rua da Lapa. 120 grupo 505 
Tels 252 9057 232 5948 
CEP 20021 Rio de Janeiro RJ 



Programa do Mcs 
"LIFE" 

Simulagao da Evolugao 



Pierluigi Piazzi 

0 programa "LIFE" foi originalmente elaborado por 
John Conway da Universidade de Cambridge, Inglaterra 
em 1970. 

A versao que apresentamos foi adaptada para o TK 
por Flavio Rossini e encontra-se detalhada em seu livro 
"Introdupao a Linguagem de M^quina para o TK". 

Vamos nos limitar a reproduzir aqui a listagem do 
programa sem entrar na discussao das instrupoes de seu 
Assembly. Se algum leitor estiver interessado nesta par- 
te, aconselhamos a leitura do capi'tulo XI do livro citado. 

Inicialmente vamos discutir o principio do programa: 
num quadrado de 16x16 posipoes, nascem, se reprodu- 
zem e morrem celulas, representadas por urn "0" (fig. 
1 ). 




EXEMPLO DE TELft 



1053 BYTES 

fig. 1 

Ao comepar o programa produz uma primeira gerapao 
de celulas, distribuidas ao acaso em seu "habitat" de 
256 posipoes. A gerapao seguinte e entao desenhada na 
tela obedecendo a certas regras "biologicas". 

Cada c^lula tern 8 vizinhas possiveis (fig. 2) : 



1 


2 


3 


4 


0 


5 


6 


7 


8 



fig. 2 



1 ) As celulas que tiverem apenas 2 ou 3 vizinhas sobrevi- 
vem e aparecem na gerapao seguinte. As demais morrem. 

2) Todo espapo vazio que tiver exatamente 3 celulas vizi- 
nhas, gerara uma nova celula na gerapao seguinte. 

£ interessante observar que o "habitat" 6 um espapo 
fechado sem limites, ou seja, a ultima fi la embaixo e 
computada como adjacente & primeira fila de cima e ci 
ultima coluna da direita 4 considerada adjacente a pri- 
meira da esquerda (fig. 3). 



vizinha de A 

Futuro nascimento 
“Sobreviverci (tern 2 vizinhas)/ 





1 


2 




4 




6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


itrutura 

2st3vel 

ia de B 


1 






o 






















/ 






2 










<3 


a 


o 




Moi 


Ter 


a 


o 




L 






3 












• 












o 


• 








4 














Fi 


Jtur 


o n; 


asci 


mei 


ito 










5 
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6 
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o 


o 
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8 




























o 


o 


i 
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V 
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13 


o 
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16 






o 





























fig. 3 



Em matem^tica, diriamos que o quadrado gerado na 
tela 6 topologicamente equivalente a uma esfera. Para 
entender melhor a analogia, voce deve imaginar um ma- 
pa-mundi (fig. 4), onde o lado direito junta-se a seu lado 
esquerdo. 
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Qualquer outra observagao a respeito da "biologia" 
do programa torna-se ineficaz enquanto voce nao tiver 
digitado o programa que # em sua forma final, ocupa 
1 053 bytes. 

19 Passo: digite o programa listado na figura 5, to- 
mando o cuidado de entrar com exatamente 142 pontos 
apos o REM da linha 1 . Por via das duvidas salve-o em fi- 
ta para nao ter que redigitar tudo se faltar energia el6tri- 
ca. 0 programa em BASIC serve para inserir, no lugar de 
cada ponto, um valor correspondente ao codigo de m3- 
quina. 0 primeiro ponto ap6s o REM est3 no enderego 
16514 da memoria, e o ultimo no 16655. Esta insergao 
6 feita atrav^s do comando POKE. 



booh mmmmmmmmmmmmmmmmmmmm 

PROGRftMfi 1 

1 REM 

‘ 5 'SCROLL 

1© PRINT “ENDERECO INICIPL 7 ” 

£0 INPUT M 
30 PRINT M 
40 FOR I=H TO 16655 
50 INPUT P 
60 POKE I,P 
70 SCROLL 
80 PRINT I,P 
90 NEXT I 



fig. 5 



29 passo: com o programa 1 ja digitado, de um RUN 
0 programa perguntar^ qual o enderego inicial, e voce 
digital 16514. 

A seguir a sucessao de bytes, escritos em forma deci- 
mal, listados na figura 6, devera ser digitada (apertando- 
se NEW LINE apos cada byte). Esta 6 a parte mais chata 
da histdria e aconselhamos leitor a achar um colabora- 
dor disposto a ditar a sequencia e a conferir na tela. 

Lembra-se a Lei de Murphy? 

"Se alguma coisa tern a mais remota chance de dar er- 
rado, fatalmente dar3 errado". Consequentemente, em 
algum ponto desta enfadonha sequencia voce errar^. 
Nao entre em panico. 

Procure o ultimo enderego em que voce digitou cor- 
retamente e anote-o. Digite STOP interrompendo o 
programa e de um RUN. 

Neste momento parece que estou vendo a cara des- 
confiada do leitor: "Tern certeza que 6 RUN? Nao vou 
perder tudo que digitei atd agora?" 

Nao, nao vai perder: o POKE da linha 60 est3 reescre- 



vendo a linha 1, substituindo os pontos por caracteres 
correspondentes aos bytes do programa em linguagem 
de m^quina. 0 RUN apaga as vari^veis, mas nao as linhas 
do programa. 

LISTRGEM DECIMRL £>E "LIFE" 

16514= 

16515= 

16516= 

16517= 

16518= 

16519= 

16520= 

16521= 

16522= 

16523= 

16524= 

16525= 

16526= 

16527= 

16528= 

16529= 

16530= 

16531= 

16532= 

16533= 

16534= 

16535= 

16536= 

16537= 

16538= 

16539= 

16540= 

16541= 

16542= 

16543= 

16544= 

16545= 

16546= 

16547= 

16548= 

16549= 

16550= 

16551= 

16552= 

16553= 

16554= 

16555= 

16556= 

16557= 

16558= 

16559= 

16560= 

16561= 

16562= 

16563= 

16564= 

16565= 

16566= 

16567= 

16568= 

16569= 

16570= 

16571= 

16572= 

16573= 

16574= 

16575= 

16576= 

16577= 

15578= 

18579= 

16580= 

16581= 

16582= 

16583= 

16584= 



fig. 6 



>239 


16585= >14 


>1 


16586 = > 0 


>1 


16587 = > 209 


>16 


16588= >225 


>16 


16589= >126 


>255 


16590 = > 254 


>255 


16591 = > 127 


>24© 


16592= >48 


>14 


16593= >3 


>16 


16594= >35 


>6 


16595 = >24 


>16 


16596= >246 


>42 


16597= >229 


: >50 


16598= >235 


>64 


16599= >229 


>84 


16600= >17 


>93 


16601= > 130 


>41 


16602= >64 


:>41 


16603= >26 


>25 


16604= >254 


>41 


16605= >14 


>41 


16606= >40 


>41 


16607 = >11 


>25 


16638= >19 


>34 


16609= >133 


>5© 


16610= >111 


>64 


16611= > 126 


: > 124 


166 12 = >254 


>254 


16613 = > 180 


>196 


16614 = >32 


:>56 


166 15 = > 243 


: >4 


16616= > 12 


: > 62 


166 17= > 24 


:> 130 


16613= >240 


:>24 


16619= >225 


:>2 


16620= >121 


:>62 


16621= >254 


= >128 


16622= >2 


= >215 


16623= >56 


: > 16 


16624= >15 


= >227 


16625= >254 


: >62 


16626 = > 4 


= >118 


16627 = > 48 


: >215 


16623 = >11 


= > 13 


16629= >254 


: >32 


16630= >3 


= >219 


1663 1 = > 40 


= >201 


16632 = > 3 


= > 6 


16633= >126 


= > 0 


16634= >24 


= >17 


16635= >6 


= >0 


16636 = > 62 


= >117 


16637= > 180 


= >42 


16633= >24 


= > 12 


16639= >2 


= >64 


16640= >62 


= >229 


16641= > 128 


= >126 


16642= >227 


= >35 


16643= >119 


= >254 


16644 = > 35 


= >127 


16645= >227 


= >56 


16646= >35 


= >250 


16647 = > 229 


= >18 


16648= > 125 


= >19 


16649= >167 


= >16 


16650= >32 


= >246 


16651= > 189 


= >17 


16652 = > 225 


= >0 


16653= >225 


= >117 


16654 = > 20 1 


= >213 


16655 = > 0 
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Ao ser perguntado qual o enderego inicial digite o su- 
cessivo ao que voce anotou e continue inserindo a lista. 

Quando aparecer o codigo: 

0/90 



Voce pode ofertar NEW LINE e ver3 como a I inha 1 mu- 
dou de aspecto: uma parte, inclusive, ficou invisfvel 
(fig. 7). 



ASPECTO DA LISTAGEM flPOS RODAR 
O PROGRAHR 1 



1 REM LORD < COPY COPY L.I5 

T : (/(EMRND??DD; PDP; 6MRND? RETUR 
N CODE Sm YH/ MNOT t STOP Y 



OBS: NUNCR COHANDE "EDIT" PARR 

A LINHA X 



fig. 7 



Nunca, mas nunca mesmo, traga esta I inha 1 para bai- 
xo com o comando EDIT. Se voce acompanhar o nosso 
curso de Assembly, urn dia ver3 o porque. 

39 passo: apague todas as linhas do programa 1 
exceto a numero 1, que cont6m a sequencia em lingua- 
gem de m^quina. Se voce ficar aflito por apagar £s cegas, 
digite LIST 2. 



PROGRAMA 2 

2*SLOU 
3 RAND 

4- LET M ICROHOBBY =USR 16522 

5 LET M ICROMEGft=U5R 16562 

6 GOTO 5 



fig. 8 



Agora digite o programa 2 (fig. 8). Se seu computador 
nao tiver SLOW, digite o programa 2 na versao apresen- 
tada na figura 9. 



PROGRRMfl 2 P/OUEM TEM MROUINF) 
5EM “SLOW* 



3 RRND 

4. LET MICROHOBBY=USR 

5 LET MICROHEGR =USR 

6 PAUSE 100 

7 GOTO 5 



16522 

16S62 



fig. 9 

A linha 4 chama, atrav^s da fungao USR a subrotina 
localizada na linha REM a partir do enderego 16522. 
Esta subrotina gera aleatoriamente a primeira geragao de 
celulas (fig. 1 ). A seguir a linha 5 chama a subrotina que 
se inicia no enderego 16562. 

Esta subrotina impoe as "regras biologicas" para pro- 
duzir a geragao seguinte. 



49 passo: digite RUN e fique observando o suceder-se 
de geragoes. Quern nao tern SLOW talvez tenha que ajus- 
tar urn pouco o controle VERTICAL de sua TV: a tela 
ficar^ piscando mas nao pulando. 

Se voce quiser acompanhar passo a passo a "evolu- 
gao" de seus bichinhos, pode alterar o programa 2 como 
indicado na figura 10. Desta forma, para ver a geragao 
seguinte basta pressionar NEW LINE. 



2BSLOU 
3 RAND 

<* LET MICROHOBBY =USR 16522 

5 LET MICROMEGR =USR 16562 

6 INPUT A$ 

7 GOTO 5 



PROGRAMA PRSSO-R -PASSO 



fig. 10 

59 passo: de agora uma recordada sobre o que voce 
aprendeu a respeito de Darwin. Veja como a situagao 
inicial pode evoluir dando origem a uma extingao total 
ou a "especies" est^veis. Ocasionalmente obtemos como 
resultado final formas "meta-est^veis" que oscilam entre 
duas possibilidades. 

Uma coisa muito interessante e se observar o desenro* 
lar da "evolugao convergente". 

0 tubarao, o golfinho, e o ictiossauro tern origens 
completamente diferentes: urn 6 peixe, o segundo e ma- 
mifero e o terceiro e urn reptil, (fig. 11). Ao se adapta- 
rem, por6m, ao meio aqu^tico ficaram submetidos a 
conjuntos similares de regras e acabaram evoluindo para 
formas semelhantes. 

Analogamente, as configuragoes iniciais, diferentes 
umas das outras pois sao geradas ao ACASO, ficam 
submetidas a um conjunto de regras que simulam uma 
PRESSAO DE EVOLUCAO e acabam convergindo para 
formas similares. 

t> 
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LIVKOS PARA TK, SEZ, CV 




r ^ 
TRIDITA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE , PAREDAO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MAGICO , SENHA , BAN 
CO IMOBILIARIO, BOMBARDEIO, SOM 

POR SOFTWARE, ETC 

LANQAMENTO CR$ 4.000,00 

APLICACOES SERIAS 

» 

FOLHA DE PAGAMENTO, BALANCETE , CON 
TAS A RECEBER, A PAGAR , CORREQAO 
MONET ARIA DAS CONTAS DO BALANQO, 
CORREQAO DAS CONTRIBUIQOES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCARIA , TABELA PRICE, ESTA- 
T 1ST ICA, CORREQAO DE PROVAS , EDITOR 
DE TEXTOo, RAM TOPER , SUB-ROT INAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES , ECONOMIZAN 
DO MEMORIA, ETC... ETC... 

CR$ 4.800,00 

45 PROGRAMAS 

ARQUI VOS , ESTOQUE , PLANO CONTABIL , 
AGENDA TELEFONICA , INVASORES , APAGUE 
A TRILHA, CAQA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, T ABE LAS , T ABUADAS, 
CONVERSAO DE COORDENADAS, MEDIA, FI 
BONACCI , PROGRESSAO, BIORRITMO , RE 
NUMERADOR DE LINHAS EM CODIGO, ETC. 

7? EDigAO Cr$ 4. 000,00 

l J 



MICRON 

ElETRONICA COMERCIO E INDUSTRIA LTDA 
Av S Joao 74 Tele tone 22 4194 S Jose do s Campos 
Est de Sao Paulo 



A grande virtude deste programa 6 o de permitir simu- 
lar, em poucos minutos, um suceder de gerapoes que di- 
ficilmente poderemos observar na pr^tica. Para reiniciar 
a observapao digite BREAK e a seguir RUN. 



69 passo: para salvar o programa em fita voce tern 3 
caminhos: 

a) DigitarSAVE "LIFE'' normalmente 

b) Acrescentar as linhas: 

10 SAVE "LIFE" 

11 RUN 

e comepar a gravapao com 

GOTO 10 

c) Se voce tiver um TK85, acrescente as linhas: 

10 LET LIFE = USR 8405 

11 RUN 

Neste caso, ao digitar: 

GOTO 10 

voce estarci gravando o programa em HIGH SPEED. 

O 
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Program* do Mis 

ARQUIVO 



Este programa foi adaptado a part ir de um programa 
publicado em margo na revista Microcomputing, sendo 
o original de autoria de Russel King. 

E um programa inteiramente em BASIC que compen- 
sa sua lentidao com uma grande elasticidade. Como o 
programa e muito extenso (9800 bytes), aconselhamos 
o leitor a gravar a listagem em fi'ta cada 50 ou 60 linhas: 
se faltar energia eletrica nem todo o trabalho de digita- 
cao estar3 perdido. Esta tdcnica tern a vantatem adicio- 
nal de permitir uma "descansadinha" enquanto o pro- 
grama incompleto esta sendo gravado. 

Quando o programa estiver completo, e conveniente 
grava-lo algumas vezes (isto pode ser feito automatica- 
mente: veja dicas na pagina 29 ). 

Ao rodar o programa o leitor deve criar o habito de 
digitar sempre GOTO 1 e nunca RUN, para nao perder 
os dados a serem inseridos posteriormente. A primeira 
coisa que vemos d um menu inicial que caracteriza o 
computador empregado, dimensionando conveniente- 
mente a memdria (fig. 1 ). 



SEU COMPUTRDOR E* . 

1.. .TK32-C (l&K) 

2- . .TK83 i I6K) 

3.. .2.81 (16K) 

4- b . .TIMEX < 16K ) 

5. . .CP 280 

6. . .NEZ0000 C 16K ) 

7. a .TK82/83 (64K) 

3. . .TK85 U5K) 

9 . . .TK85 (48K) 



(MENU INICIRL) 



fig. 1 



Uma vez digitada a opgao correta, passamos ao menu 
principal (fig. 2). Quando usamos o programa pela pri- 
meira vez devemos comegar pela opgao 8: 

8 . . MONTAR NOVO FICHARIO 




COMRNDOS DO RROUIUG MICROHOBBY 
1 - . INSER IR REG I5TR05 

2. . TROCRR REGISTROS 

3 . . RPRGRR REG I3TRGS 

4.. .LISTRR TODOS OS REGISTROS 

5. . BUSCR DE UM REGISTRO 
S. • ORDENRR REGISTROS 

7 - . GRRURR REG ISTROS 

8.. MONTRR NOUO FICHRRIO 

9.. LISTRR CRMPOS 

OURL UOCE DES EUR USRR? 



% 2 

0 programa pergunta qual o nome do fichario: este 
nome se transforma tambdm no nome do programa, 
quando usarmos a opgao 7: 

7 . . . GRAVAR REGISTROS 

o argumento do SAVE sera escolhido nesta ocasiao. 

Vamos supor que queiramos montar uma agenda de 
telefones de amigos. Digitamos, entao : 

AGENDA AMIGOS 

0 programa pergunta entao quantos campos tera cada 
ficha. Como se trata de uma agenda de telefones bastam 

> 
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dois. Dependendo da utilizagao do fichario, uma quanti- 
dade maior de campos podera ser escolhida. Obviamente 
quanto mais campos . . . menos fichas. 

A seguir devemos definir quantos caracteres para o tf- 
tulo de cada campo. Aqui conv^m ser bem economico. 
No nosso exemplo vamos escolher tres. Isto permite que 
o tamanho mdximo de cada campo seja de 28 caracteres: 

NOME DO CAMPO + CONTEUDO DO 
CAMPO = 31 CARACTERES 



0 programa pede agora o nome do campo 1. Vamos 
digitar: 



NOM (NOME DO AMIGO) 



Devemos agora responder quantos caracteres o campo 
NOM deve ter. Como se trata de uma agenda de amigos, 
bastam uns 12 caracteres (nao precisamos do nome com- 
pleto). 



Vamos agora inserir alguns registros. Para isto basta 
digitar 1 : 

1 . . . INSERIR REGISTROS 

0 computador, a cada insergao nos pergunta se dese- 
jamos trocar algo ou se desejamos inserir mais registros. 
Todas essas perguntas devem ser respondidas por S ou N 
(Sim ou Nao). 

Ao terminar a lista, digite N quando a pergunta for 
"deseja inserir mais registros?". Nao se preocupe se o 
computador parece sair do ar (mais uma vez esquisitices 

do SCROLL) 

Digamos agora que voce queira listar os registros. Bas- 
ta digitar 4. 

4 . LISTAR TODOS OS REGISTROS 

0 computador pergunta se queremos a listagem de to- 
dos os campos e se esta deve ser efetuada no vi'deo ou na 
impressora. 



Repetimos a operagao para o campo 2: 

Nome do campo 2: TEL (TELEFONE) 
Comprimento: 7 



A listagem surge na tela como SCROLL e a cada ficha 
para. Para continuar basta ficar pressionando a tecla C 
Querendo interromper digite BREAK e GOTO 1000 (e 
tenha paciencia com o SCROLL) (fig. 4). 

QUEP. ft LISTAGEM DE TODOS CAMPOS? 



Somos informados que a memoria comporta 330 re- 
gistros (com 16 K), e nos e perguntado quanto deseja- 
mos (fig. 3). 



OURL SERA* ? 

DESEJR GUANTOS CRMPOS72 
OURNTOS CRRRCTERES PARA O TITULO 
DE CfiDft CflMPO ? (0 A 15)3 

O TAMANHO MAXIMO DE CADA CAMPO 
E" DE 28 CARACTERES 



NO VIDEO OU NA IMPRESSORA? (V/I) 
D IG ITE C PARA CONTINUAR 



NOM: JOSE ANTONIO 
TEL : 54-3887? 

NOM : ALBERTO 
TEL: 28724-56 

NOM. VALERIA 
TEL: 4-52338? 



CAMPO 1 : NOM 

COMPRIMENTO DO CAMPO < 1-28) : 12 



NOM: VICENTE 
TEL : 4-556734- 



CAMPO 2: TEL 

COMPRIMENTO DO CAMPO ( 1-28) : 12 



O NUMERO MAXIMO DE REGISTROS 
VALE ftPROX IMADAMENTE 338 
OUANTOS REGISTROS DESEJA? 



fig. 3 



fig. 4 



Digamos que seja necessSrio tirar uma lista na impres- 
sora em ordem alfabetica. Devemos, no menu principal 
digitar 6. 



Apenas para arredondar, vamos escrever 300. 0 com- 
putador pede entao para digitar qualquer tela menos 

BREAK 

Voltamos entao ao menu principal com o fichario jd 
dimensionado. Esta volta nao e muito r^pida devido a 
uma peculiaridade do SCROLL do TK (veja DICAS, 
pag. 27). 



6 . . ORDENAR REGISTROS 



Uma vez escolhido o campo a ser ordenado ap6s a 
execugao e perguntado se desejamos refazer a ordenagao 
segundo outro crit^rio. Digitando N, volta-se ao menu 
principal. Digitamos agora 4 e escolhemos como opgao a 
impressora, obtendo, por exemplo, a listagem da fig. 5. 

> 
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NOM : RL&ERT O 



Se nao soubermos o numero, entra em funcionamen- 
to a mesma rotina de busca do item 5: 

5 . . BUSCAR DE UM REGISTRO 

Digitando S para o campo NOM a busca comega. Ao 
inves de digitar o conteudo completo do nome, vamos 
digitar apenas V (no fichario do nosso exemplo temos 
dois nomes que comegam com V: Vicente e Valeria). 
0 programa busca os dois (fig. 7). 




NON: DELERMO 
TEL : 2114533 



NON : JOSE RNTON XO 
TEL: 5438877 



NOM: MRRCIfl 



PRESS I ONE ••S” OURNDO UOCE 

tiuer o crmpo 

NOM 7 

ENTRE com o conteudo deste CflMPO 
REGISTRO NUMERO S 
NOM: URLERIR 
TEL : 4-523387 

DESEJfi CONTINURR R BUSCfi? 
REGISTRO NUMERO 7 
NOM: UICENTE 
TEL : 4 356734 

DESFJfi CONTINURR R BU5CR? 

BUSCR COMPLE7R 

DE5EJR FR2ER OUTRR BUSCR? 



TEL: 8134555 



fig. 7 



0 campo 3: 



NOM: MhRILDR 
TEL : 8997656 

NOM: URLERIR 
TEL : 4523387 



NOM: OICENTTE 
TEL : 4556734 




fig. 5 

Para trocar algum registro, basta digitar 2: 



2 . . TROCAR REGISTROS 



Sabendo o numero da ficha a ser trocada podemos al* 
terar qualquer um de seus campos (fig. 6) : 

ENTRE COM O NUMERO DO REGISTRO 
R SER TROCRDQ 



NOM : DELERMO 

IRR a TROCRR? 



3 . . APAGAR REGISTROS 



tern funcionamento analogo. Por prudencia, antes de 
apagar o programa, pede uma confirmagao (fig. 8). 

UOCE PRECISR ENTRRR COM O NUMERO 
DO REGISTRO R SER RPPGPDO . 

UOCE DESEJfi FR2ER UMR PESOUISP 
SOBRE O NUMERO DOS REGISTROS? 

ENTRE COM O NUMERO DO REGISTRO 

R SER RPflGflDO 

NOM : UICENTE 

TEL : 4556734 

RPRGRR ESTE REGISTRO? 

•’ll* 

fig. 8 

0 campo 9 mostra uma ficha vazia apenas para lem* 
brar qual o formato do arquivo que esta sendo rodado 
(fig. 9). 

LISTRGEH DOS CftMPGS DE 



NOME 

END 

CEP 

TEL 



TEL : 2114533 

IRR H TROCAR? 
TEL : 2114535 



PRESS IONE ©URLOUER TECLR 
MEMOS ,, 6RERK M 



REGISTRO NUMERO 2 flCRBRDO fig 9 

DESEJR TROCRR OUTRO REGISTRO? 

B 



fig. 6 
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Finalmente, optando por 7 o leitor podera gravar em 
fita os registros efetuados at£ entao. Se o computador 

> 



1 



for um TK85 poderemos optar por velocidade normal 

ou HIGH-SPEED. 

Lembre-se, porem, de uma coisa importanti'ssima. Se 
o programa for interrompido por algum erro jamais digi- 
te RUN, sob pena de perder todo o fichario. 0 programa 
deve ser sempre reiniciado com um GOTO 1000. 



0BREM 

900 REM ESCOLHft DO COMPUTRDOR 

901 PRINT 11 5EU COMPUTfiDOR E* : " . 

TRB 2; "1. • .TK82-C < 16K) 11 ; T RB 2; " 

= ■ ■ ■ TK83 (16K) n ;TRB 2; n 3. . ,2X8 
1 <16K)";TRB 2; “4-. r TIMEX (16K)" 

;TRB 2; "5 . . . CP 200 ”;T RB 2;"6...N 
dZ©000 ( 16K) TRB 2; "7. . . TK82/83 
(64>K) ,# ; TRB 2; "8 « . .TK85 (16K) ";TR 

8 2; "9 . « . TK85 <43K) " 

910 LET HI=0 
915 INPUT R 
920 LET R = I NT R 

930 IF R < 1 OR R>9 THEN GOSUB 66 
00 

940 IF R > 0 RND R < 10 THEN GOTO 9 
55 

950 GOTO 900 

955 LET MEMO =39000 

960 IF R<>7 RND R<>9 THEN LET M 
EMO=6300 

970 IF R =8 OR R=9 THEN LET HI = 1 
1000 REM MENU 
1005 FRST 
1010 CL5 

1830 PRINT TRB 2; "C0MRND05 DO RR 
OUIUO MICROHOBBY ” 

104.0 PRINT 

105© PRINT " 1 • • IN5ERIR REGISTROS 



. TROCRR REGISTROS M 



1060 PRINT 
1070 PRINT 
108© PRINT 
1090 PRINT "3. .flPRGRR REGISTROS" 
1100 PRINT 

111© PRINT “4. . LIST RR TODOS 05 R 
EGISTROS" 

1120 PRINT 

1130 PRINT "5..BUSCR DE UM REGIS 
TRO" 

114.0 PRINT 
1150 PRINT 



1160 

1170 

1180 

1190 

RIO" 

120 © 

1210 

1220 

1230 

124.0 

R7"; 

1250 

1260 

1270 

00 

1275 

31© 

1280 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



"6. . ORDENRR REGISTROS 

"7..GRRURR REGISTROS" 
"8 . - MONT RR NOUO FICHR 

"9 « . LIST RR CRMPQ5" 

"QURL UOCE DESEUR USR 



INPUT R 
LET R=INT fl 

IF R < 1 OR R > 9 THEN GOSUB 60 
IF R > 0 RND R < 10 THEN GOTO 1 
CL5 

GOTO 1030 
CLS 

IF R=1 THEN GOSUB 1420 

IF R=2 THEN GOSUB 171© 

IF R=3 THEN GOSUB 2170 

IF R=4 THEN GOSUB 2670 

IF fi=5 THEN GOSUB 3300 

IF R=6 THEN GOSUB 3838 

IF fl=7 THEN GOSUB 4132 



*OUER TROCRR RLGUMR C 

THEN GOTO 151© 

* " INSER 



1390 IF R =8 THEN GOSUB 4250 
1400 IF R=9 THEN GOSUB 492© 

1405 FRST 
1410 GOTO 1010 

1420 REM INSERIR REGISTROS 
143© LET N=N + 1 
144© SCROLL 

1458 PRINT "REG 1ST RO NUMERO N 
1468 IF N < =M THEN GOTO 1510 
1478 LET N=M 
148© SCROLL 
1482 SLOW 

1484 FOR 1=1 TO 12 

1490 PRINT RT 11,2; "FIM DOS REG I 
5TROS" 

1491 PRINT RT 11,2; 



r IH DO 



1494- NEXT X 

14-96 FRST 

1500 GOTO 1700 

1510 FOR 1=1 TO N 1 

1520 SCROLL 

1530 PRINT N* (I) 

154-0 INPUT It(N,D(I,l) TO 0(1,2) 

1 

1550 PRINT I*(N,D(I,1> TO D<I,2) 

1560 SCROLL 
1570 NEXT I 
1580 SCROLL 
1590 PRINT 
□ ISA?".; 

1600 INPUT fi* 

1610 SCROLL 
1620 IF A$ = ‘‘S‘ 

1630 SCROLL 

1640 PRINT "REGISTRO ";N; 

IDO” 

1650 SCROLL 

1660 PRINT "DESEUR INSERIR MAIS 
REGISTROS?"; 

1670 INPUT A* 

1680 SCROLL 

1690 IF R*="S" THEN GOTO 1420 
1700 RETURN 

1710 REM TROCRR REGISTRO 
1720 SCROLL 
1730 SCROLL 

1740 PRINT "PARR TROCRR UH REGIS 
TRO VOCE" 

1750 SCROLL 

1700 PRINT "PRECISA ENTRRR COM O 
SEU NUMERO" 

1770 SCROLL 

1780 PRINT " UOCE DESEUR PESOUIS 
RR SOBRE" 

1790 SCROLL 

1800 PRINT "O NUMERO DO REGISTRO 

•*? •• 

1810 INPUT R$ 

1820 SCROLL 

1830 IF R$="S" THEN GOSUB 3300 
1840 CLS 
1850 SCROLL 

1860 PRINT "ENTRE COM O NUMERO D 
O REGISTRO" 

1870 SCROLL 

1880 PRINT "R SER TROCRDO" 

1890 SCROLL 
1908 INPUT R 
1910 LET R=INT R 
1920 SCROLL 

1930 IF R > 0 RND R < =N THEN GOTO 1 
96© 

1940 PRINT "NUMERO DE REGISTRO N 
RO URL IDO " 

I960 GOTO 2110 
I960 FOR 1=1 TO N 1 
1970 SCROLL 

I960 PRINT N*(I) I*(R,DCI, 1) 

TO D (1,2) ) 

1990 SCROLL 

> 
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2000 PRINT TRB 10;" IRR" TROCfiR?' 1 

2010 INPUT R$ 

2020 SCROLL 

2030 IF Rt < >‘ , 5" THEN GOTO 2080 
204-0 PRINT 

2050 INPUT I$(R,D<I,i) TO D(I,2) 

) 

2080 PRINT I$(R,D(I,1) TO D(I,2> 

) 

2070 SCROLL 
2080 NEXT I 
2000 SCROLL 

2100 PRINT "REGISTRO NUMERO ";R; 

PCRBRDO " 

2110 SCROLL 

2128 PRINT "DESEJR TROCRR OUTRO 
REGISTRO?" 

2138 INPUT R$ 

214-0 SCROLL 

2158 IF R$="S" THEN GOTO 171© 
2188 RETURN 

2170 REH RPRG'RR UM REGISTRO 
218© IF N > 0 THEN GOTO 2220 
2108 SCROLL 

2208 PRINT " NENHUM REGISTRO NO F 
IGHRRIO " 

2210 GOTO 2510 
222© SCROLL 

223© PRINT "UOCE PRECISR ENTRRR 
COH O NUMERO " 

224-0 SCROLL 

2250 PRINT "DO REGISTRO R SER ftp 
RGRDO. " 

228© SCROLL 

2278 PRINT "UOCE DESEJR FRZER UM 
R PESOUISR" 

2280 SCROLL 

220© PRINT " SOBRE O NUMERO DOS R 
EGI5TR05 7" 

2300 INPUT R$ 

2318 SCROLL 

232© IF R $ = " S " THEN GOSUB 3300 
233© SCROLL 

234-0 PRINT "ENTRE COH O NUMERO D 
Q REGISTRO " 

235© SCROLL 

2350 PRINT " R SER RPRGRDO" 

2370 INPUT R 
2380 LET R = INT R 

2300 IF R > 0 RND R < =N THEN GOTO 2 
4-30 

2408 SCROLL 

2410 PRINT "NUMERO DE REGISTRO N 
RO URL IDO " 

2420 GOTO 2610 
2430 FOR 1=1 TO N1 
2440 SCROLL 

2450 PRINT N*(I); ,, : w ;I*(fl,D(I,l) 
TO D (1,2) ) 

246© NEXT I 
2470 SCROLL 

2488 PRINT "RPRGRR ESTE REGISTRO 
2490 INPUT R$ 

2500 IF R$="S" THEN GOTO 2520 
2510 GOTO 2610 

2520 IF R=N THEN GOTO 2580 
2540 FOR I=R TO N-l 
2550 LET Ill(I)=I*(I + l) 

2560 NEXT I 
258© LET N =N — 1 



2508 

2608 

2610 

2620 

PRRR 

2638 

2640 

2650 

2860 

2670 

2680 

260© 

270© 

ODOS 

2710 

2720 

2730 

2750 

2760 

2770 

2780 

2800 

2818 

2828 

2830 

OS 

2548 

2850 

RR" 

2860 

2878 

2880 

2890 

2000 

2010 

2020 

203© 

2048 

2050 

2060 

207© 

2080 



SCROLL 

PRINT "REGISTRO RPRGRDO" 
SCROLL 

PRINT "MR IS RLGUM REGISTRO 
RPRGRR?" 

INPUT R* 

SCROLL 

IF R$="S" THEN GOTO 218© 
RETURN 

REM LISTRGEM DOS 
SCROLL 
LET R=© 

PRINT "OUER R LISTRGEM 
CRMPOS?" 

INPUT R$ 

IF R*="S" THEN LET R=1 
SCROLL 

FOR 1=1 TO N 1 
LET R < I) =R 

IF R=1 THEN LET R(I)=I 
NEXT I 
LET J=N1 

IF R = 1 THEN GOTO 2070 
SCROLL 

PRINT "PRESS IONE ""5"" 
CRMPOS" 



REGISTROS 



DE T 



PRRR 



SCROLL 

PRINT "CUE UOCE DESEJR LIST 



TO NX 



LET U=© 

SCROLL 
FOR 1=1 
SCROLL 

PRINT N $ i I ) ; " 7* 

INPUT R$ 

PRINT 

IF R$<>"5" THEN 
LET U=J4-1 
LET R (U) =1 
NEXT I 
SCROLL 

PRINT "NO UIDEO 
5SORR? (U/I J " 

200© INPUT R$ 

300© IF R$ (!)="!" THEN 
3005 SLOW 
3010 SCROLL 

3015 PRINT "DIGTTE C PRRR 
URR" 

3020 SCROLL 

3030 PRINT TRB 5;L$ 

304© SCROLL 
3058 FOR 1=1 TO N 
3850 FOR K=1 TO U 
307© SCROLL 
308© PRINT 
(K) ,1) TO D (R (K) ,2) ) 

300© NEXT K 
SCROLL 

IF INKEY $ < > "C" THEN GOTO 31 



GOTO 2060 



QIJ NR IMPRE 



GOTO 313© 



CQNTIN 



3100 

3106 

05 

311© 

3115 

3120 

3140 

315© 

3155 

3160 



NEXT I 
FR ST 

GOTO 3250 
CLS 

LPRINT 
LPRINT 
LPRINT 



TAB 5;L$ 



3170 FOR 1=1 TO N 
3180 FOR K=1 TO U 
3100 LPRINT 
3200 LPRINT N$(R(K)j; 
R(K),X) TO D(ft(K),2>) 
3218 NEXT K 
3228 LPRINT 
3225 LPRINT 



: " ; I $ ( I , D ( 



323© NEXT I 
325© SCROLL 
3260 PRINT "OUTRR LISTRGEM'? 1 
3270 INPUT A$ 
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3280 IF R$="S" THEN GOTO 2670 
329© RETURN 

3300 REM BUS OR DE UM REGISTRO 
3310 SCROLL 

3320 PRINT "PRESS I ONE ""S"" OUftN 
DO UOCE 
3330 SCROLL 

334-0 PRINT *TIUER O CRMPO" 

33S© FOR 1=1 TO N1 

3360 SCROLL 

337© PRINT Nf(I); u 7"; 

3380 INPUT 

3390 IF R$="S" THEN GOTO 34-4-0 
3400 NEXT I 
3410 SCROLL 

3420 PRINT “SELECRO CRNCELRDR" 
3430 GOTO 3780 
3440 SCROLL 

345© PRINT "ENTRE COM O CONTEUDO 
DESTE CRMPO” 

3460 INPUT R$ 

3470 LET fl=LEN R$ 

3480 IF R < 1 THEN GOTO 34S0 
3490 IF R<=(D(I,2) +1) THE 
N GOTO 3520 

3500 LET R= (D (1,2) -D (I, 1) +11 
3510 LET R*=R$tl TO R) 

3520 LET R=R-1+D(I,1) 

3*530 LET F=0 

3540 LET 0=0 

3560 FOR U = 1 TO N 

357© IF R$=I$ <U,D (I, 1 ) TO R* THE 
N GOSUB 3660 

3580 IF 0=1 THEN GOTO 3600 
3590 NEXT U 
361© SCROLL 

3620 PRINT " BUSCR CCMPLETR" 

3630 SCROLL 

3640 IF F =© THEN PRINT "REGISTRO 
NRO RCHRDO" 

3650 GOTO 3780 
3660 SCROLL 

3670 PRINT "REGISTRO NUMERO ";J 
3680 FOR K = 1 TO N1 
3690 SCROLL 

370© PRINT N* CK ) ; " : " ; 1$ (U,D < K , 1 > 
TO D (K i 2) ) 

3710 NEXT K 
3720 SCROLL 

3730 PRINT "DESEUR CONTINURR R B 
i isro *> " 

3740 INPUT B$ 

3750 IF B jr = " N" THEN LET 0=1 
3760 LET F = 1 
3770 RETURN 
3780 SCROLL 

3790 PRINT "DESEUR FRZER OUTRR E* 
USCR7" 

3800 INPUT 

3810 IF R* = ,, S" THEN GOTO 3300 
3820 RETURN 

3830 REM OROEM DOS REGISTROS 
384-0 SCROLL 

3850 PRINT "ESTR ROT INR QRDENfl R 
>— FRNUMER ICR - " 

3860 SCROLL 

3870 PRINT "MENTE COM BASE NUM C 
RMPO“ 

3880 SCROLL 

3890 PRINT ** PRESS IONE "’•S"" PRRR 
O CRMPO " 

3900 SCROLL 

3910 PRINT "OUE IRR* SERUIR DE B 
PSE " 

3920 SCROLL 

3930 FOR 1=1 TO N1 

3940 SCROLL 

3950 PRINT 7" 

3960 INPUT R$ 

3970 IF R$="S" THEN GOTO 4020 
3980 NEXT I 
3990 SCROLL 



4©0© PRINT "ORDENRCRO CRNCELRDR" 

401© GOTO 4160 

4©20 SCROLL 

404© FOR J = 1 TO N - 1 

405© FOR K=J TO N 

406© IF TO D (I ,2) ) <= 

X$(K,D(I,1) TO D ( I / 2 ) ? THEN GOTO 
4073 

4070 LET B$=I$ iU) 

4071 LET I$(U)=I$<K> 

4*072 LET I$(K)=B$ 

4073 NEXT K 

4074 NEXT U 

4076 SCROLL 

4077 PRINT "QRDENRCRO COMPLETR" 
4080 SCROLL 

409© PRINT "ORDENRP COM BRSE EM 
OUTRO CRMPO?" 

41©0 INPUT R* 

4110 SCROLL 

4120 IF R$="S" THEN GOTO 3830 
4130 RETURN 

4132 REM GRRURR PROGRRMR 

4134 IF H I =© THEN GOTO 4146 

4135 PRINT "PREFERE GRRURR EM UE 

LOG IDRDE NORMRL <N) OU HIGH-5 

DEED? CH) " 

4137 INPUT C$ 

> 




BASIC & UNGUAGEM 
DE MAQUINA 



NjVEL 0 


CRIANQAS 


lOh 


INICIACAO 


NIVEL 1 


ADULTOS E 
ADOLESCENTES 


20h 


INICIACAO 


NiVEL 2A 


ADULTOS E 
ADOLESCENTES 


20h 


APROF EM APLICACOES 
ADMINISTRATES 


NIVEL 2B 


ADOLESCENTES 

JOGOS 


20h 


APLICAgOES EM 
JOGOS 


NIVEL 3 


ADULTOS E 
ADOLESCENTES 


40h 


UNGUAGEM DE MAQUINA 
ASSEMBLY Z80 


NiVEL 4 


ADULTOS E 
ADOLESCENTES 


40h 


APROF. DE LINGUAGEM 
DE MAQUINA 



tiudeo 



oel orienta^oo 

Hde iestudos Informapdes • Inscri^des: 

L V / Av. Brig. Faria Lima, 1451 - 3.° - Cj. 31 

Tel.: 813-4555 • CEP 01451 - S3o Paulo-SP 
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4138 IF C$=“N“ THEN GOTO 4-14-6 
4-139 CLS 

4-14-0 PRINT "COM O GRRURDOR EH PO 
SICRO DE GR PURR DIGITE R TECL 

R H" 

4-14-1 INPUT R$ 

4142 IF R $ = “ H “ THEN LET H=U5R 64 
06 

4146 GOT O 1 0O0 
4146 CL 5 
4160 SCROLL 

4160 PRINT “PONHR O GRRURDOR EH 
POSICRO DE “ 

4170 SCROLL 

4 160 PRINT “ GRRURR = PR RR COMECflR 
R GRRURR“ 

4190 SCROLL 

420© PRINT 11 PRESS I ONE QURLOUER T 
ECLP M 

4910 PAUSE 3000 
4220 SCROLL 
4230 SAUE L $ 

4940 GOTO 1000 

4250 REM MONT RR FICHARIO 

4260 SCROLL 

4270 PRINT “©URL SERA" O NOME DO 
FICHRRIC ?“ 

4972 INPUT 9$ 

4273 DIM L*(LEN G$) 

4274 FOR 0=1 TO LEN Q$ 

4276 LET L$(Q) =CHR$ (CODE ©$(©)+ 

126) 

4276 NEXT © 

4290 SCROLL 

4292 PRINT “PICHARIO : “ ; L $ 

4294 SCROLL 

4300 PRINT “DESEJA OURNTOS CAMPO 

5 ?-; 

4320 INPUT N 1 
4330 PRINT N1 
434© SCROLL 
4360 LET K = 15 

4360 PRINT “OURNTOS CRRRCTERES P 
R RR O TITULO“ 

4370 SCROLL 

4360 PRINT “DE CRDR CAMPO 7 (0 R 

- 15 ) “ * 

4390 INPUT K 

4400 IF K > 15 THEN LET K = 15 
4410 IF K < 0 THEN LET K=0 
4415 PRINT K 
4420 SCROLL 
4430 LET L =31 — K 

4440 PRINT “O TAMANHO MAXIMO* DE 
CRDR CRMPO ** 

4450 SCROLL 

4460 PRINT “£ p DE ";L;“ CRRRCTER 
E5" 

4470 DIM N$(N1,K) 

4480 DIM R(N1> 

4490 DIM D (Nl., 2) 

4500 SCROLL 
4510 SCROLL 

4520 PRINT “ENTRE COM DESCRICOES 
DO CAMPO" 

4530 SCROLL 

4540 PRINT “E O COHPRIMENTO DO C 
AMPO “ 

4550 LET U=1 
4560 SCROLL 
4570 FOR 1=1 TO Nl 
456© SCROLL 



4590 LET R$ = ““ 

4600 PRINT “ CRMPO ,, ;l; ,, : ,, i ; 

4610 INPUT R$ 

4620 LET R$ = R$«h“ 

t • 

4630 LET N$(I)=ft« 

4635 PRI^ N$<I) 

4640 SCROLL 

4650 PRINT " COMPR IMENT O DO CRMPO 
(!-'•; L; “ ) : 

4660 INPUT R 

4670 IF R < 1 THEN LET R = 1 
4860 IF R > L THEN LET H=L 
4690 PRINT R 
4700 LET DiLl) =U 
471© LET U=U+R 

4720 LET Dil.2) =J-1 1 

4730 SCROLL 

4740 NEXT I 

4750 LET U=U— 1 

4760 LET N=0 

4770 LET M = INT ( (MEMO-Ni* (31-Lf i 

2) ) ✓U) 

4760 SCROLL 

4790 PRINT “Q NUMERO MAXIMO DE R 
EGISTROS “ 

4600 SCROLL 

4610 PRINT “URLE RPROX IMADAMENTE 

II . |uj 

4620 SCROLL 

4630 PRINT “OURNTOS REGISTROS UO 
CE DESEJA? ** 

4640 INPUT R 
4850 LET R=INT R 

4660 IF H>© RND R < M THEN LET M=R 
4870 DIM I$(H,U) 

4872 SCROLL 
4874 PRINT M 
4880 SCROLL 
4882 FRST 

4890 PRINT “DIGITE ©OUER TECLAdi 
ENOS BREAK" 

4900 PAUSE 3O0G0 
4910 RETURN 

4920 REM LI5TAGEM DOS CRMPOS 
4930 SCROLL 

4940 PRINT “LISTRGEM DOS CRMPOS 
DE“ 

4245 SCROLL 

4946 SCROLL 

4947 PRINT L$ 

4950 SCROLL 
4952 SCROLL 

4980 FOR 1=1 TO Nl 
4980 SCROLL 
4990 PRINT N$ Cl) 

5300 NEXT I 
5010 SCROLL 
5012 SCROLL 
5014 PRINT 

SO™' 'SCROLL * 

5020 PRINT “ PRESS IQNE OURLOUER T 
ECLA" 

5021 SCROLL 

5022 PRINT “MENOS “ “ BREAK " '* “ 

5030 SCROLL 
5040 PRUSE 30©00 
5050 RETURN 
5060 STOP 
6000 SLOW 

6010 FOR 1=1 TO 12 

6030 PRINT RT 0,0; "POR FAUOR ENT 
RE B E EJ" 

6040 PRINT RT 0,0j“POR FAUOR ENT 
RE 1 E 9“ 

6050 NEXT I 
6060 FRST 
6070 RETURN 
7080 STOP 



o 
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A FITA DO MES 

Simulador de Voo 



A fita que estamos oferecendo de brinde para os nos- 
sos assinantes cont6m um jogo bastante realista de 16 K 
intitulado "SIMULADOR DE V 00". Aadaptagao feita 
para o Brasil de um programa originalmente ingles criou 
um pequeno grilo, felizmente sanado, para o TK85 
(veja DIC AS do nP 2). 

Inicialmente o programa pergunta se queremos o voo 
completo ou apenas a fase de aterrisagem. Aconselha- 
mos os "manicacas" a se limitarem inicialmente & ater- 
risagem. Por maior motivo, ao serem questionados se de- 
sejam ou nao os efeitos do vento, aconselhamos respon- 
der "Nao". 



Ao comegar o programa, inicialmente temos, uma vi- 
sao do interior da cabine. Pelo parabrisa vemos a linha 
do horizonte. Puxando o manche para trSs (com 
joystick, ou com a tecla 6) vemos o horizonte descer, 
pois o nariz do aviao estS apontando para cima. 

Da mesma forma, digitando 7 fazemos o nariz baixar 
e vemos o horizonte subindo. 0 ntvel do horizonte esli 
indicado num mostrador 3 esquerda. 

Cuidado, pois este instrumento tern um pouco de in£r- 
cia. Usando as teclas 5 e 7 fazemos o aviao se inclinar 
para esquerda e para a direita. Obviamente veremos o 

t> 
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horizonte se inclinar ao contr^rio, pois o referencial est3 
fixo na cabine e nao na Terra. 

Abaixo do mostrador de horizonte temos o indicador 
de combustfvel, cuja indicagao nao 6 crftica quando es- 
colhemos apenas a fase de aterrisagem, mas que se torna 
um grande fator de angustia quando o voo e longo e es- 
tamos perdidos. 

A direita temos o indicador do regime de rotagao do 
motor. Digitando P (de forma contfnua, pois todos os 
controles sao do tipo INKEY$) a rotagao aumenta, 
aumentando a velocidade indicada logo 3 esquerda em 
KM/H e, obviamente, o consumo de combustfvel. Digi- 
tando 0 o regime diminui: (cuidado para nao perder a 
sustentagao). 

0 altfmetro indica a altura em metros e sua marcagao 
pode ser alterada levantando ou baixando o nariz do 
aviao. Cuidado que, ao perder altura, o aviao ganha ve- 
locidade. 

Digitando F o flap 6 abaixado, aumentando a susten- 
tagao em baixa velocidade (aterrisagem) e D ele e retira- 
do. Dar flap em alta velocidade produz desastres. 

Para abaixar ou levantar o trem de aterrisagem basta 
digitar G. Antes de aterrisar verifique o mostrador do 
trem ao lado do de flap, para nao correr o risco de ras- 
par a barriga na pista. 

No lugar de honra do painel temos a bussola que mos- 
tra o rumo do aviao. A direita da bussola temos o radio- 
goniometro que indica o rumo (em graus) e a distancia 
(em KMS)ate o radiofarol do aeroporto. Este rumo e 
mostrado tambem de forma analogica pelo mostrador 
circular com modelo de aviao. 



Se digitarmos M (mapa), a cabine desaparece do vfdeo 
e em seu lugar vemos o mapa da regiao. No alto a es- 
querda continuamos tendo acesso 3 leitura do rumo do 
aviao. 0 aviao e o rddio-farol sao representados como 
pontos piscando. Querendo fixar o sistema de navega- 
gao em um radio-farol situado em outra cidade basta di- 
gitar B ate que a cidade escolhida fique piscando. Em 
voos longos isto pode ajudar. 

Digitando V novamente voltamos para a cabine e ve- 
mos no r^dio gonio/netro o rumo e a distancia em rela- 
gao ao novo radio-farol fixado. 

Se o aviao bater contra o solo, ou contra os morros 
indicados no mapa, havera um quebra-quebra e veremos 
o relatorio do acidente para nos orientar nas proximas 
tentativas. 

A fase final da aterrisagem 6 a mais emocionante e 
lembra os velhos tempos em que a maior preocupagao 
do piloto era de nao deixar o cachecol embaragar na he- 
lice. 

Com o video mostrando a cabine, digitar V: se a dis- 
tancia ate o aeroporto for suficientemente pequena, ele 
aparecera em perspectiva e a habilidade do piloto nao 
depended mais tanto dos instrumentos. Apesar disto, 
ainda sao visiveis o central izador de descida, o veloci me- 
tro e o altfmetro. 

Se nesse momento voce lembrar do trem de aterrisa- 
gem, £ so digitar V novamente que o painel da cabine 
volta a aparecer. 

Em pouco tempo voce se tornar^ um h3bil piloto, 
tanto visual quando em voo por instrumentos. 

O 
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□ices 

Apagando a Tela 




Quando montamos uma tela com muitas linhas usan- 
do o SCROLL, nos defrontamos normalmente com urn 
problema: apagar a tela com urn CLS e uma tarefa que 
pode ser muito demorada. Quern ja brincou com o simu- 
lador de voo \A sentiu isso na mensagem final: DIGITE 
RUN PARA VOAR NOVAMENTE. Digitando RUN (e 
NEW LINE) deve se esperar um bocado para que a tela 
se apague totalmente e o jogo reinicie. 

Vamos entao fazer algumas experiences: 

Digite inicialmente o programa listado na fig. 1 (A$ 
tern 32 o's). Com o computador no modo SLOW rode o 
programa. 

110 LET R$ = ,, 0000000000000000000 
0000000000000 " 

120 FOR 1=0 TO 6 
130 SCROLL 
14-0 SCROLL 
15© SCROLL 
160 PRINT R$ 

17© NEXT I 
120 CLS 
20© GOTO 100 

fig. i 

Note quanto tempo demora o CLS para apagar a tela. 
Tente dar um BREAK enquanto a tela esta sendo apa- 
gada: inutil. £ necessario esperar que a tarefa se com- 
plete. 

Como evitar isso? Uma solugao e colocar o compu- 
tador em SLOW enquanto a tela esta sendo escrita, mas 
em FAST quando esta sendo apagada. 

Acrescente as linhas: 



100 SLOW 



e 

180 FAST 

ao seu programa, de maneira que ele fique como na 
fig. 2. 

100 SLOU 

110 LET R$= M OGOOOOOOOOOOOOOOOOO 
OOOOOOQOOOOOO '* 

120 FOR 1=0 TO 6 
130 SCROLL 
140 SCROLL 
150 SCROLL 
160 PRINT R$ 

170 NEXT I 
180 FRST 
190 CLS 
200 GOTO 100 

fig. 2 

Rode o programa assim alterado e veja como as coisas 
melhoram um pouco. 



Mas, serA que nao existe uma maneira mais elegante? 

Podemos utilizar uma subrotina em linguagem de ma 
quina, para encher a tela de espacos vazios. 

Uma subrotina em linguagem de m^quina e uma se- 
quencia de bytes que deve ser inseridas em algum lugar 
da memoria e A chamada pela funcao USR Toda subro- 
tina desse tipo tern uma ultima instrugao analoga ao 
RETURN, que faz voltar ao programa em BASIC No 
curso de ASSEMBLY que estamos publicando discutem- 
se as melhores localizagoes para estas subrotinas. Por en- 
quanto vamos local iza-la numa I inha REM do programa 
em BASIC. 

Digite entao: 

1 REM (3 pontos) 

Sem apagar o programinha anterior acrescente as li- 
nhas: 

10 FOR I = 16509 TO 16517 

20 PRINT I, PEEK I 

30 NEXT I 

40 STOP 

e agora digite RUN 

A fungao PEEK le o byte contido no enderego de seu 
argumento. Desta forma o programinha em questao esxA 
lendo os bytes contidos nos enderegos de 16509 a 
16517. 

0 enderego 16509, no TK, cont6m o primeiro byte 
do programa em BASIC. Pegue o manual do TK (Apen- 
dice A) e veja o que podemos deduzir do que mostra 
a tela (fig. 3). 



16509 


0 


16510 


1 


16511 


5 


16512 


0 


16513 


234 


16514 


27 


16515 


27 


16516 


27 


16517 


116 



fig. 3 

Os enderegos 16509 e 16510 cont^m os bytes que in- 
dicam o numero da linha. No nosso caso trata-se da li- 
nha 01 . 

Os enderegos 16512 e 1651 1 (nesta ordem) mostram 
o comprimento da linha (no nosso caso 05 bytes, in- 
cluindo um byte final que indica que a linha acabou. 

0 enderego 16513 cont^m o byte 234. No apendice 
A vemos que ele corresponde ao REM. A seguir temos 
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os 3 pontos 27, 27 e 27 e finalmente o byte que indica 
NEW LINE, ou seja, esta linha de programa acabou 
(fig. 4). 



ENDERECO 


BYTE 


SIGNIFICADO 


16509 


0 


linha 1 


16510 


1 




16511 


5 


comprimento 


16512 


0 


5 bytes 


16513 


234 


REM 


16514 


27 




16515 


27 




16516 


27 




16517 


118 


NEW LINE 



fig. 4 

Como podemos observar, o primeiro byte livre apos o 
REM 6 o de enderepo 16514, que por enquanto, cont^m 
o byte 27 (ponto). 

Se quisermos alterar seu conteudo basta usar a instru- 

pao POKE 



DIGITE POKE 16514, 201 



e liste o programa novamente. 

Olhe para a linha 1 (fig. 5). 

1 REM TRN . . 

10 FOR 1=16509 TO 16517 
20 PRINT I , PEEK I 
30 NEXT I 
4-0 STOP 
100 SLOW 

110 LET R $ = ’* OOOOOOOOOOOOOOOOOOO 
OOOOOOOOOOOOO" 

120 FOR 1=0 TO 6 
130 SCROLL 
14.0 SCROLL 
150 SCROLL 
160 PRINT R$ 

170 NEXT I 
180 FAST 
190 CLS 
200 GOTO 100 

fig. 5 

0 primeiro dos tres pontos, justamente o que estava 
no enderepo 16514, foi substituido por TAN, que 6 jus- 
tamente o caracter 201. Rode o programa e voce vera 
esta substituipao (fig. 6). 



46509 


0 


16510 


1 


16511 


5 


16512 


0 


16513 


234 


16514 


201 


16515 


27 


16516 


27 


16517 

fig. 6 


118 



Vamos agora apagar as I inhas 1,10, 20, 30, 40, 100 e 
1 80, voltando, por tanto, ao programa da figura 1 . 

Como a subrotina que vamos introduzir tern 21 bytes, 
vamos digitar uma linha 1 REM seguida de 21 pontos 
para reservar 21 enderepos na memoria. 

A seguir, para nao ter que fazer 21 POKE'S seguidos 
vamos digitar esta pequena rotina: 

10 FOR I = 16514 TO 16514 + 20 

20 PRINT I, 

30 INPUT P 
40 PRINT P 
50 POKE I, P 
60 NEXT I 
70 STOP 

e rode-a com o computador em SLOW Entre com os 
bytes listados na figura 7. Liste o programa e veja como 
ficou estranha a linha 1 REM (fig. 8). 



16514 


42 


16515 


12 


18516 


64 


15517 


1 


16518 


213 


16519 


2 


16520 


35 


18521 


126 


15522 


254 


16523 


118 


16524 


40 


16525 


3 


16526 


62 


16527 


0 


16528 


119 


16529 


11 


16530 


120 


16531 


177 


16532 


200 


16533 


24 


16534 

fig. 7 


241 



1 REM ECRND - 5TR$ *7 ? ,, ?lCOS 

LET 

10 FOR 1=16514 TO 16514+20 

20 PRINT I, 

30 INPUT P 

40 PR TNT P 

fig. 8 

Agora voce ja tern uma pequena subrotina em lingua- 
gem de m^quina na linha REM. Apague as linhas 10, 20, 
30, 40, 50, 60 e 70, digite: 

100 SLOW 



e rode o programa. Tudo continua como no comepo, 
pois o programa em BASIC ignora tudo o que estiver nu- 
ma linha REM. Seu programa em linguagem de m3qui- 
na esta bem quietinho e so sera despertado por urn USR. 

Vamos agora chamar a subrotina. A linha : 

190 CLS 



pode ser substituida por 

190 LET LIMPEZA = USR 16514 

195 CLEAR 
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A vari^vel LIMPEZA nao serve para nada: sua unica 
finalidade 6 poder fazer constar da linha USR 16514. 
A linha nao poderia comepar por USR pois esta 6 uma 
funqao e nao uma KEY-WORD. 0 argumento 16514 
corresponde ao primeiro byte apos o REM da linha 1. 

Rode agora o programa assim alterado. Bern mais r&- 
pido nao? 

De um BREAK enquanto a tela estiver enchendo. Se 
a seguir voce digitar NEW LINE, dever5 outra vez espe- 
rar que a tela se apague lentamente. 

Vamos agora fazer outra experience : no endereqo 
1 6527 foi colocado o byte do caractere que precise en- 
cher a tela. No nosso caso, o byte era 0, correspondente 
a um espago vazio. 

Vamos escolher um outro caractere correspondente 
ao byte 1 46. 



Vamos digitar entao: 

POKE 16527,146 

Digite RUN e veja o que acontece. 

De um BREAK e liste o programa. 

Vamos produzir agora uma ultima loucura (esta dica 
vai ter um final apoteotico). 

Digite esta rotina: 

5 SLOW 

10 FOR C= 128 TO 191 
20 POKE 16527,0 
30 RAND USR 16514 
40 NEXT C 
50 STOP 

e rode o programa com RUN 

Voce saberia explicar o que aconteceu? 



□icas 

Gravagao automatica 

Um dos primeiros erros cometidos pelos principiantes 
em TK b o de comprar fitas cassete de longa duragao e 
nelas gravar uma grande quantidade de programas. Ap6s 
um certo periodo de experiencia percebe-se que esta tbc- 
nica apresenta dois problemas: 

1) Fitas de longa duragao sao mais delgadas e mais 
frageis 

2) Muitos programas numa unica fita produzem buscas 
demasiadamente demoradas. 

0 aconselhavel, entao, e comprar fitas de curta dura- 
gao e gravar poucos programas nelas. 

0 ideal seria a gravagao de um unico programa por fi- 
ta. A busca seria imediata. 

Isto pode ser feito quando dispomos de programas 
longos. 

Se os programas forem curtos (1 a 4 K) e nao exigi- 
rem armazenamento de dados, podemos digitb-los todos 
numa unica sequencia colocando no programa um menu 
inicial proporcionando a escolha. 

Obviamente este processo aumenta um pouco o tem- 
po de transference de fita para a RAM do computador 
e exige expansao de membria. 

0 tempo gasto na transference, porem, b altamente 
compensado pela economia na busca do programa. 

Entretanto, por mais curta que seja a fita, dificilmen- 
te ela serb totalmente tomada pelo programa. Vale a pe- 
na, entao, gravar o mesmo programa repetidas vezes: um 
pequeno acidente de gravagao, uma interference de uma 
emissora de FM, uma falha no revestimento da fita, poe 
o programa a perder. Uma gravagao multipla jb diminui 




o risco de perda (lembre-se da Lei de Murphy). 

Para que o processo de repet igao da gravagao nao se 
tome enfadonho, podemos usar um pequeno truque. 

Digamos, por exemplo, que se queira gravar, varias ve- 
zes, o programa "ARQUIVO" que e oferecido aos leito- 
res neste numero. Basta entao, acrescentar ao fim do 
programa as linhas mostradas na fig. 1, colocar a fita no 
comego, dar o comando 

GOTO 9000 
e ir tomar um cafezinho. 

380061 S HUE 11 ft R 0 U I US * * 

3010 PRINT "DIGITE ,l " BRERK '* '* 11 
38R0 PRUSE 300 
3038 GOTO 3800 

fig. 1 

A linha 9030 far3 o processo se repet ir n vezes. 
Quando este programa for carregado, novamente no 
computador, aparecer^ a mensagem 

DIGITE "BREAK'' 

mas nao se apresse; se a pausa de tempo for superada o 
programa poe o computador no modo SAVE", mas 
nao e apagado da membria. Os riscos que aparecem na 
tela, inclusive, sao caracteristicos da emissao e nao da re- 
cepgao. Basta digitar "BREAK" a qualquer momento e 
NEW LINE, que veremos a listagem do programa. 

Vamos entao organizar nossa biblioteca de programas 
e cuidado para nao tomar cafezinhos em excesso. 
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PROGRAMA DO LEITOR 

Crepe 



Luiz G.C. Antunes 




Este jogo e um jogo de dados muito conhecido nos 
cassinos de todo o mundo. 

Joga*se com fichas, voce joga contra a banca, que, nes- 
te caso e o computador. 

Se o resultado na primeira vez for 7, ou 11, a banca 
vence, se for 2, 3 ou 1 2, voce vence. 

Se nao for nenhum desses resultados, o jogo fica inde- 
finido, e jogam-se os dados novamente. 

Agora, se a banca repetir o numero anterior, voce per- 
de. E se a soma dos dados for 7 voce vence. 

C -MICROMEGfl 1983 
1010 LET CT=0 
1030 CLS 
1030 PRINT 

104.0 PRINT T flB 9; "JOGO DE CREPE- 
1050 PRINT 

1060 PRINT "U.5RBE RS INSTRUCOES 
( S /N ) ?" 

10T0 INPUT R$ 

1060 IF R$="S" THEN GOTO 1310 
1090 CLS 

1100 PRINT "INSTRUCOES” 

1110 PRINT 

1130 PRINT "O CREPE E UM JOGO DE 
DRDOS . JOGfl -SE COM FICHflS.U. JOG 
R CONTRR R BRNCR . " 

1130 PRINT 

114.0 PRINT "SE O RESULTADO DOS D 
RDOS HR PRI MEIRR JOGRDR FOR 7 O 
U 11,A BRNCR UENCE . " 

1150 PRINT 

1160 PRINT "SE FOR 3,3 OU 12.U.U 
ENCE" 

1170 PRINT 
1180 PRINT 
SSES , O JOGO 
GRM-SE OS 
1190 PRINT 

1300 PRINT "PRESSIONE R TECLA 
P/CONT INURR . •* 



SE NRO FOR NENHUM DE 
F ICR INDEFNIDO , E JO 
DRDOS DE NOUO - " 



<N 



INSTRUCOES (CONTINUA 



EU LINE) 

1310 INPUT B$ 

1330 CLS 
1330 PRINT 
CRO) : " 

134.0 PRINT 

1350 PRINT "AGORA , SE R BRNCR REP 
ETIR O PONTO RTERIOR , U . PERDE • " 
1360 PRINT 

1370 PRINT "E SE R SOMR DOS DRDO 
S FOR 7,U. GANHA . '* 

1280 PRINT 

1290 PRINT "PRESSIONE R TECLA <N 
EU LINE > P/COMECAR R JOGAR.** 

1300 INPUT 
1310 LET F = 10 
1320 CLS 

1330 PRINT "BEM UINDO R MESA DE 
CREPE . " 

134-0 PRINT 

1350 PRINT "UOCE TEH ";F;" FICHA 
S . •• 



1360 PRINT 
1370 PRINT 
EIROS. " 

1380 PRINT 
1390 PRINT 
CRUZEIROS . • 
14.00 PRINT 
1410 PRINT 
DINHEIRO 
1420 INPUT 
1430 IF R$= 
1440 PRINT 
1450 PRINT 
P/FICHA 
1460 INPUT 
1470 IF R$: 
1480 PRINT 
1490 PRINT 



"UOCE TEM " ; CT; " CRUZ 
"CADA FTCHR URLE 100 



"OUER TROCRR FICHR P/ 
C S /N ) 7" 

:"S" THEN GOSUB 1970 

"OUER TROCRR DINHEIRO 
CS/N) 7" 

:"S" THEN GOSUB 2080 
"OUER APOSTAR CS/N) 7 



THEN GOTO 1890 



FICHAS" 



1530 

1530 

1390 



THEN G 



OR D C 1 ) 



1500 INPUT A$ 

1510 IF R$o"S 
1520 PRINT 
1530 PRINT "OUANTAS 
1540 INPUT R 
1550 IF R > F THEN GOTO 
1560 IF R < 0 THEN GOTO 
1570 IF R =0 THEN GOTO 
1580 GOSUB 2330 
1590 DIM D (2) 

1600 LET D(l) =D1+D2 
1610 IF D(l) =7 OR D Cl) =11 
OTO 1630 
1620 GOTO 1650 
1630 GOSUB 2210 
1640 GOTO 1850 
1650 IF DID =2 OR D(l) =3 
=12 THEN GOTO 1670 
1660 GOTO 1690 
1670 GOSUB 2270 
1680 GOTO 185© 

1690 PRINT 

1700 PRINT "JOGO INDEFINIDO.PRES 
SIONE R TE CLR <NEU LINE) P/JOG 
RR NOURMENTE OS DADOS." 

1710 INPUT B$ 

1720 GOSUB 2330 
1730 LET D(2) =D1+D2 
1740 IF D(1)=D(2) 

1750 GOTO 1780 
1760 GOSUB 2210 
1770 GOTO 1850 

1780 IF D C2) =7 THEN GOTO 1800 
1790 GOTO 182© 

1800 GOSUB 2270 
1810 GOTO 1850 
1320 LET D C 1 ) =D C 2 ) 

1830 GOTO 1690 
1840 PRINT 

1350 PRINT "OUER CONTINURR JOGAN 
DO CS/N) 7" 

1360 INPUT R$ 

1870 CLS 

•S" THEN GOTO 1320 
•SEU SRLDO E DE " ; F ; " 



THEN GOTO 1760 



1880 IF R* = * 
1890 PRINT ' 
FICHAS" 
1900 PRINT 
1910 PR I NT • 
S . " 

1920 PRINT 
1930 PRINT ‘ 



E DE 



■; CT; 



CRUZEIRO 



TENHA UM BOM DIR* 
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2180 REM SUB ERRO 

2190 PRINT " URLOR ILEGRL.POR FRU 
OR REESCREUR” 

2200 RETURN 

2210 REM SUB PERDEDOR 

2220 PRINT 

2230 PRINT "R BRNCR UENCE . *" 

224-0 PRINT 

2250 LET F=F-R 

2260 RETURN 

227*0 REM SUB UENCEDOR 

22S0 PRINT 

2290 PRINT ** R BRNCR PERDE.** 

230© PRINT 

2310 LET F=F+R 

2320 RETURN 

2330 REM SUB DRDOS 

234.0 LET D 1 = I NT C6*RND) + 1 

2350 LET D2=INT (6*RND> +1 

2360 CLS 

2370 PRINT "O RESULTRDO DOS DRDO 

S E . . . - 

2360 PRINT RT 5,1G,D1 

2390 PRINT RT 10.10;D2 

24-0© RETURN 
2410 SRUE •'CRERg** 

2420 GOTO 1000 
2430 STOP 

O 



PROGRAMA DO LEITOR 



Tabela Price 



Samuel Ejchel 



Como sugestao e complementagao ao problema do 
Ministro, queria lembrar que a conhecida Tabela Price, 
muito usada em negdcios imobili^rios, e justamente cal- 
culada com base em capitalizagao instantaneas. Assim o 
programinha anexo "Tabela Price" (fig. 1) pode ainda 
ser de utilidade pr^tica para corretores, e merece ser di- 
vulgado. Com ele pode-se calcular, inclusive, a taxa para 
fragoes de ano, se "entrarmos" com N sendo a fragao do 
ano. 

Exemplo: para achar o fator da Tabela Price para a 
prestagao que amortize uma di'vida em 10 meses, en- 
trariamos com N = 10/12. Note-se por£m, que os resul- 
tados sao bastante prdximos, mas nao coincidem exata- 
mente com os tabelados. 0 valor da "taxa ano" deve ser 
dado como urn numero decimal, ou seja, se a taxa for 
9% a.a., o valor a alimentar sera .09. 

O 




5 REM TR8ELR PRICE 
10 PRINT **T RXR RNURL = * 
I 
I 

’PNOSr*’ ; 



20 INPUT 
30 PRINT 
40 PRINT 
50 INPUT N 
60 PRINT N 
70 PRINT 



"T , PR ICE = ” ; 

80 PRINT EXP CI*n7*CI/12) / ( ( (1 
+ X / 12 ) ** ( 12 * W ) ) -13 



EXEMPLO: 

TRXR RNUPL=.09 
RNOS =3 

T . PRICED. 031S31737 



fig. 1 



1940 PRINT TRB 12; **TK CROUPIER. ** 

1950 STOP 

1960 REM SUB FICHfl/DINHEIRO 
1970 CLS 

1980 PRINT "OURNTRS FICHRS 

1990 INPUT C 

2000 IF C>F OR C<0 THEN GOTO 197 
0 

2010 LET C R=C*100 
2020 LET CT=CT+CR 
2030 LET F =F — C 
2040 CLS 

2050 PRINT “U.TEH ; F ; *' FICHRS E 

; CT ; •* CRU2E IROS . •• 

2060 RETURN 

2070 REM SUB DINHEIRO/FICHR 
2080 CLS 

2090 PRINT "OURNT OS CRUZEIROS 7“ 
2100 INPUT D 

2110 IF D > CT OR D<0 THEN GOTO 20 
80 

2120 LET FP = I NT (D/1003 
2130 LET CT=CT-D 
2140 LET F=F+FP 
2150 CLS 

2160 PRINT "U-TEM ; F ; ” FICHRS E 

CT; - CRUZEIROS. " 

2170 RETURN 
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PROGRAMA DO LEITOR 

O TK no Direito Trabalhista 
e Civel 



Dr. Joao Carlos Normanha Salles 




Os programas sao aplicativos tanto para a area de Di- 
reito Trabalhista quanto Ci'vel, pois uma das maioresdi- 
ficuldades dos advogados militantes 6 a realizagao da li- 
quidagao processual, ou seja, transformar o direito reco- 
nhecido pela justiga de seus clientes no correspondente 
em dinheiro a ser recebido da parte condenada. 

Quando o usuario fornece a data do ajuizamento, a 
data presente, o valor da parcela, o programa aplica to- 
dos os dispositivos legais para atualizagao desta parcela. 
Posteriormente, quando nao houver mais parcela alguma 
a ser atualizada, o programa oferecera urn resumo deta- 
Ihado de todas as atualizagoes que foram feitas no mes- 
mo processo e ainda a quantia a ser recolhida a ti'tulo de 
imposto de renda retido na fonte para Receita Federal. 

fig. 0 e 1 

*iE5 « 11 RNQ s 1982 

•JUR05 CRLCULRDOS EM 2 MESES 
PRINCIPAL = CR$ 100000 
•NDICE = 1.7 



URLOR RTUfiL = CR$ 170000 
TRXR DE 1 POP CENTO 
vJUROS = CR$ 1700 
f .ifiL0R TOTRL CR$ 171700 



DO PRINCIPAL =CR $ 220000 
DO CORRIGIDO = C-R$ 36800® 
DOS JUROS = CR$ O2O0 

f^*SSiSS^=CR$ 377200 

X.R. (DRRF) = CR$ 4-50 



fig. 0 



1 REM ‘TP.RBRLH 1ST R " 

2 REM DR- U C NORMRNHR SRLLE5 



3 


CLS 




4 


PRINT 


“ATUALIZAGAO TRA6 


TLH 1ST A “ 




5 


PRINT 




10 


PRINT 


”TECLE MES RTURL E <N 


EU LINE > ” 




20 


INPUT 


R 


30 


PRINT 




48 


PRINT 


"TECLE ANO ATUAL E <N 


EU LINE > ” 




50 


INPUT 


B 


60 


PRINT 




70 


PRINT 




80 


PRINT 


"CONFIRR: MES - ” ; R ; ” 


RNO = 


M ; B 




90 


PRINT 




93 


PRINT 




95 


PRINT 




100 


PRINT 




110 
> E 


PRINT 


"TECLE ME9 k AJUIZAMENT 
< NEU L ” 


120 


INPUT 


C 


130 


PRINT 




140 


PRINT 


"TECLE RNO AJUIZAMENT 


O E 




< NEU LINE > " 


15© 


INPUT 


D 


160 


PRINT 




165 


PRINT 




170 


PRINT 


"CONFIRR: MES= " ; C; " 


ANO = 


”; d 




180 


PRUSE 


200 


190 


CLS 




200 


PRINT 


RT 10 , 0 ; "UR ESTOU PRO 



NT O PRRfl RTURLIZRR 



RS PRRCELR5 : 

TECLE OS DRDOS 

50LICITRD05 

E < NEW L INE > ** 

202 LET 0=0 
204- LET R=© 

206 LET 5=0 
208 LET T =0 
210 PAUSE 200 
320 CLS 

330 LET E= ( <B-D) *12) + <R-C) 

34-0 PRINT "ME5 7" 

350 INPUT F 

360 PRINT RT 0,4.;” = " ; F 

57© PRINT RT ©,25/"RrND 7" 

380 INPUT G 

390 PRINT RT 0,19;” = " ; G 

4-00 LET H= ( iB-G> *12) + (R-F) 

4-10 IF H > E THEN LET I =E 
4-20 IF E>=H THEN LET I=H 

4-30 IF 1 = 1 THEN PRINT RT 2 , 0 j " J 

JROS CRLCULRDOS EM 1 MES" 

4-40 IF I>1 THEN PRINT RT 2,0; "U 

UROS CRLCULRDOS EM ";I ; " MESES” 
4-50 PRINT RT 4,0; "PRINCIPAL 7" 

4-60 INPUT J 

4-70 PRINT RT 4-, l©;” = CR$ ” ; U 

480 PRINT RT 6,0; "INDICE 7” 

fig. 1 
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49* INPUT K 

500 PRINT RT 6,7;" = 

510 PRINT RT 8,0;" 



;k 



520 LET L = INT C 100* C J*K) ) /100 
530 PRINT RT 10,0; "URLOR RTURL 
» CR$ " ; L 

540 LET M = INT ( (1/2) * (L) ) /1 00 

545 LET 0=1/2 

550 PRINT RT 14,0; '’JUROS = CR* 

555 PRINT RT 12 ,0; "TRXR DE " ; O; 
1 POR CENTO" 

560 LET N=L*M 

570 PRINT RT 16,0;"URLOR TOTRL 
DR* N 
580 LET Q=Q+J 

590 LET R=R+L 

600 LET 5=S+H 

610 LET T=T+N 

620 LET U=INT (5*0.05) 

636 PRINT RT 20,0; " 



THEN GOTO 320 
THEN GOTO 700 



640 INPUT 2* 

650 IP 2t = ' , 5 1 
660 IP Z*="N- 
700 CL5 

710 PRINT RT 0,11; "I 

720 PRINT RT 2,0; "C 

730 PRINT RT 4,0; "DO PRINCIPRL 

— CR % " ; O 

740 PRINT RT 6,0; "DO CORRIGIOO 

— CR $ •• * r 

750 PRINT RT 8,0; "DOS JUROS = C 

R* S 

760 PRINT RT 10,0; "■HEH99NCR* 

',*t 

770 PRINT RT 14 , 0; " I . R . C DRRP1 = 
CR * " ,* U 

780 PRINT HT 20 , 0; " 



790 INPUT Y* 

800 IP Y$="5" THEN GOTO \ 
810 IP Y*="N" THEN CLS 
820 PRINT RT 10,10,"PIM" 



fig. 1 



0 programa seguinte diz respeito a atualizagao de pro- 
cessos cfveis, que recentemente pela lei 6899 de abril de 
1981 passaram tamb£m a ser objeto de corregao 
monet^ria. Esta corregao 6 devida somente a partir da vi- 
gencia da lei segundo regulamentagao feita. Por esta ra- 
zao o programa esta, inclusive, em obediencia a este dis* 
positivo legal preparado para rejeitar informagoes ante- 
rioresa vigencia da lei (fig. 2). 



TIES 12 RNO 1982 

JUROS NO PER IODO DE 5 MESES 
NR TRXR DE 2.5 POR CENTO 
QRTN NR EPOCR = CR$ 2800 
ORTN RTURL = CR* 4000 
PRINCIPRL DE CR $ 10000C* 

******************************* 



‘JRLOR RTURL CR$ 142857.14 
JUROS URLEM CR$ 3571.42 
SOMR CR$ 146428.56 



DO PRINCIPRL = CR* 200000 
DO CORRIGIDO = CR* 342857.14 
DOS JUROS = CR* 8571.42 
HBEB=CR* 351428.56 
OU 87.8571 ORTN 



******************************** 

HONORRR IOS DE 50 POR CENTO 

NO URLOR DE CR$ 175714.28 OU 

43.9285 ORTN 

COM I.R. DE CR* 8765.7 

E LIOUIDO DE CR* 166928.58 



fig. 2 



> 
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LIGUE-SE A 
INFORM AT ICA 



FAQA COMO 0$ 
FUNCIONARIOS DA 
ALCAN, XEROX, 
SEARLE, COPAS, 
INTELPA, DARLING, 
AIR SERVICE: 



MATRICULE-SE NA 
S.O.S COMPUTADORES. 

CURSOS DE 



BASIC e COBOL. 

• Numero limitado de alunos por 
classe • 1/3 de todas as aulas com uso 
direto dos computadores, inclusive nos cursos de 
Cobol • Professores altamente quallficados • Cursos 
apostilados e apresentados com transpar£ndas • Modemas 
instalagdes com v&rios equipamentos Dismsc, Proldgica, 
Sysditi entre outros • Pregos extremamente acessiveis. 




COMPUTADORES 



A NOVA MANEIRA DE 
APRENDER A PROGRAMAR 



NUCLEO I 

Av.Pacaembu. 1.280 
Fones. 66.7656/66.1513 





NUCLEO II 

R.TomAs Carvalhal, 380 
(Pr6ximo Esta<p3o Metro Parafso) 
Fooe: 570.6097 

/ 
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1 REM M CIUEL M 

2 REM DR. «J C NORMflNHfl SfiLLES 

5 CLS 

6 PRINT M RTUftL IZRCftO C IU 

EL- 

10 PRINT 

20 PRINT "TECLE MES RTUflL E < 

NEU LINE) 1 * 

30 INPUT A 

4-0 PRINT 

50 PRINT -TECLE RNO RTURL E < 

NEU L INE > '* 

60 INPUT B 

70 PRINT 

80 PRINT -CONFIRR: MES -;A; # * - 

RNO - ; B 

90 PRINT 

100 PRINT -TECLE MES RJUIZRMENT 

O E < NEU LINE > ** 

110 INPUT C 

120 PRINT 

130 PRINT “TECLE RNO RJUIZRMENT 

O E < NEU LINE > " 



140 


INPUT 


D 


150 


PRINT 




160 


PR INT 


-CONFIRR: MES M ;Cj" - 


RNO 


; d 




170 


PRINT 




180 


PRINT 


-UALOR ORTN RTURL = C 


185 


INPUT 


M 


186 


PRINT 


M 


187 


PRINT 




189 


PAUSE 


200 


190 


PR INT 




195 


CLS 




200 


PRINT 


-ESTOU PRONTO PRRR CO 


RRIGIR AS- 




210 


PRINT 




220 


PRINT 


-PARCELAS. TECLE OS D 


RD OS 


9UE- 




230 


PR INT 




240 


PRINT 


“FOREM SOL IC IT ADOS E 


< NEU 


LINE > 


•• 


242 


LET R 


= 0 


244 


LET S 


= 0 


246 


LET T 


=0 


248 


LET U 


= 0 


250 


PAUSE 


308 


260 


CLS 




270 


PRINT 


RT 0.0; -MES *?- 


280 


INPUT 


E 


290 


PRINT 


RT 0,4; E 


300 


PRINT 


RT 0,10; -RNO 7- 


310 


INPUT 


F 



320 PRINT RT 0,14;F 

330 LET G = ( IB— F) f 12) + (A— E) 

34.0 LET H=( (B-D) *12) + (R-C) 

350 IF H>=G THEN LET I=G 
355 IF H<=G THEN LET I=H 
360 IF 1=1 THEN PRINT RT 2,0; -J 
UROS NO PERIODO DE UM M£5“ 

370 IF I>1 THEN PRINT RT 2,0; -J 
UROS NO PERIODO DE MESES" 

360 LET J = I/2 



390 PRINT RT 4,0, M NR TRXR DE M ; 
J; - POR CENTO- 

4.00 PRINT RT 6 , 0; "ORTN NR EPOCR 
= CR % ' 

4.10 INPUT K 

4.20 IF K < 877 • 86 THEN LET L=877. 
36 

4.25 IF K <877.86 THEN PRINT RT 6 
20; -877.86 C4/81) - 
4.30 IF K >877.86 THEN LET L=K 
4-4.0 PRINT RT 6,20; L; 

450 PRINT RT 8,0; -ORTN RTURL = 
CR % ; M 

470 PRINT RT 8 , 17 ; M 

480 PRINT RT 10,0; "PRINCIPAL DE 
CR$ 7- 
490 INPUT N 
500 PRINT RT 10 . 17 ; N 
510 PRINT RT 12,0; - * * * * * * * * * * * * 
•**********»********- 
520 LET O = INT ( 100i (NiM) /L) /100 
530 PRINT RT 14,0; "URLOR RTURL 
** ; ©* 

540 LET P=INT (0*J) 7100 
550 PRINT RT 16,0; #, JUROS URLEM 
CR$ " ; P 
560 LET OrO+P 

570 PRINT RT 18,0, "SOHfl CR$ - ; O 
572 LET R=R+N 
574 LET 3=5+0 
576 LET T=T+P 
578 LET U=U+Q 
588 PRINT RT 20 , 0; M 



THEN GOTO 260 
THEN GOTO 650 



590 INPUT Y $ 

600 IF Y$s"S' 

610 IF Y$="N’ 

650 CLS 

660 PRINT RT 0,12;*J 

670 PRINT RT 2 , 0 ; 

680 PRINT RT 4,0; -DO PRINCIPAL 

= CR$ - ; R 

690 PRINT RT 6,0; “DO CORRIGIDO 
= CR$ - ; S 

700 PRINT RT 8,0, -DOS JUROS = C 

"' T 

710 PRINT RT 10.8: ” ■ #11 l— =CR < 

-; U 

720 LET RE = INT ( ( 10000 *U) /M> 7 10 
000 

730 PRINT RT 12,0; "OU ‘*;RE; " OR 
TN” 

735 PRINT RT 13,0;-********#*** 
********************- 
740 PRINT RT 14,0; ‘'PERCENTURL H 
GNORRRIO ?- 
750 INPUT U 

760 PRINT RT 14,0; "HONORARIOS D 

E -;U;- POR CENTO- 
770 LET RB = INT (U*U) 7100 

780 LET RC=INT (AB)*0.05 

790 LET RD=INT C (10000+AB) /M) 71 

0000 

800 PRINT RT 15,0; -NO UALOR DE 
CR$ - ; RB; - ou- 

810 PRINT RT 16,0; RD;- ORTN ** 

815 PRINT RT 17,0; -COM I.R. DE 

CR % - ; RC 

816 LET X =RB — RC 

817 PRINT RT 18,0; "E LIOUIDO DE 

CR $ •• • x 

820 PRINT RT 20 , 0; 



830 INPUT Z$ 

840 IF Z$=-S- THEN GOTO 5 
850 IF Z$=-N- THEN CLS 
860 PRINT RT 11,11; ,, FIM“ 



Ambos os programas contam os juros a partir da data 
de ajuizamento da apao. 



O 
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NOVIDADES 

TPLAK AMPLIANDO 
O UNIVERSO DO TK 



Flavio Rossini 



0 computador surge para auxiliar o homem, como 
uma maquina que nao substitui seus musculos mas sim 
seu c^rebro, realizando tarefas complicadas e repetiti- 
vas, executando calculos infalivelmente e com veloci- 
dades fantasticas, deixando para o homem tarefas mais 
nobres. 

Sem duvida o que mais contribuiu para a populariza- 
gao dos computadores foi o aparecimento dos compu- 
tadores pessoais, os quais surgiram as centenas ... e no 
meio deles, apareceu urn pequeno, discreto, simp^tico e, 
principalmente, acessivel a todos: o TK. . . Assim, ele 
comegou a fazer parte de muitos lares pelo mundo afo- 
ra, quase sempre com o seguinte pensamento: TK, o 
meu primeiro computador. . . Mas ele e orgulhoso. Ele 
diz: "se os outros computadores podem tocar musica, eu 
tambem posso. Se os outros podem fazer desenhos com- 
plicados, eu tambem posso. Posso ate comandar o fun- 
cionamento de outras m^quinas ou me comunicar por 
telefone com urn dos meus 2.000.000 de irmaos. Posso 
fazer tudo que qualquer outro faz. 

De fato, apesar de nao ser tao rapido e tao imponente 
ele tem o mesmo cerebro (CPU) que os "grandes", albm 
de uma grande vantagem: b acessivel, em termos de pre- 
go, o que o tornou o computador mais vendido da His- 
tdria. . . Nao so, mas ele e versatil podendo crescer junto 
com sua imaginagao para fazer mil coisas. O truque esta 
nas conexoes traseiras: atualmente, voce j3 pode ligar a 



impressora e a expansao da membria. Mas e se voce pu- 
desse ligar urn circuito para fazer sons, ou desenhos, ou 
atb mesmo faze-lo falar? Ou comandar aparelhos exter- 
nos, um mini-robo, talvez?. . . Ou simular que tem gente 
em casa quando voce vai viajar, para enganar os ladroes? 
Tudo isto ja e possi'vel com o surgimento dos perifbricos 
TplaK. O que vem a ser eles? Sao placas de circuito im- 
presso que voce conecta diretamente ao seu TK e que, 
aliadas a sua imaginacao, permitirao ao seu microcom- 
putador a realizagao de faganhas, as quais ele era INJUS* 
TAMENTE julgado incapaz de fazer. 

Vamos este mes comentar tres placas bastante interes- 
santes: 

a) placa de "beep" (BPO-TX3), que produz um sinal so- 
noro ao toque da tecla oupor comando de programa. 

b) placa de entrada/safda (I/0-TX2), que permite o co- 
mando de dispositivos externos, enviando e receben- 
do sinais bin^rios. 

c) placa de caracteres (CHR-TX4), que permite criar no- 
vos caracteres para o TK. 

A primeira delas produz um sinal sonoro cada vez que 
alguma tecla b pressionada, permitindo maior facilidade 
para a insergao de programas no computador; al£m dis- 
so, ao fazer em SAVE ou LOAD, o "beep" toca durante 
a passagem dos dados do gravador para o computador e 
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vice-versa, parando no final, permitindo a voce executar voce dirige um aviao que deve atingir um alvo, produzin- 

outras coisas enquanto aguarda a passagem do programa. do um sinal sonoro ao atingi'-lo. 





FIGURA 1 



FIGURA2 



PLACA BPO TX3 - SONORA BIP 

Mediante sonoriza<pao bip, assegura automaticamente ao usu^rio a entrada 
do dado correspondente a tecla digitada. Tamb6m sonoriza bip por progra- 
macao. ou seja, "bipa" nos momentos desejados, durante a execugao do 
programa. Auxilia o uso dos comandos SAVE e LOAD, interrompendo o 
sinal sonoro ao final das operates. 



PLACA I/O TX2 - ENTR ADA/SAIDA 

Apresenta oito entradas e oito saidas controladas pelo usudrio por progra 
magao. Possibilita o comando de aparelhos el6tricos e/ou eletrftnicos, tais 
como eletro-dom6sticos, motores el6tricos, fontes de alimentagao etc. Per- 
mite, inclusive, o comando de m£quinas industrials como, por exemplo, um 
torno-revolver. Admite a montagem de v£rias similares em s6rie, aumentan- 
do proporcionalmente o numero de entradas e de saidas de controle. 



Finalmente, este "beep", que pode ser ligado e desli- 
gado a vontade, pode tamb6m ser acionado pelo prdprio 
programa. . . Imagine um joguinho onde voce faz com 
que o "beep" toque sempre que um aviao atinge um 
alvo. E ja que falamos em jogos, podemos talar sobre a 
segunda placa: ela permite comandar (ligar ou desligar) 
at6 8 dispositivos externos quaisquer atraves do seu pro- 
grama. 0 ligamento e sinalizado atraves de 8 leds. 

Alem disso, ela possui 8 entradas para receber sinais 
externos. Esquegamos, por enquanto, o comando de dis- 
positivos externos e vamos pensar apenas nos LEDS. 
Que tal se no "joguinho do aviao" os leds simulassem 
um painel de controle: falta de combustivel, vento mui- 
to forte, tiro efetuado . . . Cinco das 8 entradas pode- 
riam ser utilizadas para um joystick que comanda a di- 
regao do aviao, duas outras entradas para o acelera- 
dor. . . Assim, associando essas placas com a de "beep", 



Naturalmente, usando a imaginagao pode-se chegar 
aos mais altos rn'veis de sofisticagao. Com a ajuda de re- 
16s, pode-se ate automatizar uma maquina que tenha 
motores, indicadores de fim de curso, enfim, quase um 
mini-robo 

Com esta placa, o TK pode ligar motores, disparar si- 
nais de alarme, e ser programado para execugao de v6- 
rias tarefas. 

E que tal se esta placa for usada para ligar e desligar 
"aleatoriamente", 8 luzes da sua casa enquanto voce es- 
tiver viajando para enganar os ladroes? Ou comandar o 
seu gravador para facilitar o SAVE e o LOAD? Ah, e se 
8 entradas e 8 safdas forem poucas, varias placas (ate 
256) podem ser ligadas ao TK, cada uma podendo co- 
mandar 8 saidas e receber 8 entradas. 

> 
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FIGURA4 

PLACA CHR TX4 - CARACTERES 

Transforms os caracteres da I6gica Sinclair em caracteres criados pelo usu£- 
rio. E acompanhada por programs em fita cassete, possibilitando seu uso 
imediato. Equipada com memdria de 1 Kb para a armazenagem dos caracte- 
res criados pelo usu£rio. possibilitando sua utilizagao em diferentes progra 
mas. 



culas, ou letras gregas, f6rmulas quimicas . . . , quern sa- 
be fazer um jogo de cartas e poder desenhar os quatro 
naipes? Tudo isso 3 possivel com a placa de caracteres 
que permite a criagao de qualquer caracteres a sua esco- 
Iha. Esta placa possui uma memdria RAM na qual voce 
pode colocar os modelos dos caracteres que deseja. 

Naturalmente, "compondo caracteres", voce poder^ 
at£ fazer desenhos de alta resolugao. . . 



Mas, voltando ao joguinho, se voce quisesse um aviao 
mesmo na tela e nao apenas um desenho utilizando os 
caracteres normals do TK? Ou se voce quisesse jogar xa- 
drez, utilizando o desenho real das pegas na tela e nao 

apenas suas iniciais? Ou escrever utilizando letras minus- 

> 



FIGURA5 

PLACA CHR TX4 - CARACTERES 

A foto mostra uma aplicagao da Placa CHR TX4 Neste caso, o usu^rio 
usou a criapao de novos caracteres para desenhar na tela essa cabega de ca- 
valo. A montagem da CHR TX4 6 sobre uma Placa MB2 TX1 (Placa Mae) 
conectada a um computador TK82-C. 

Realmente estas placas ampliam o ja gigantesco uni- 
verso do TK, tirando qualquer "complexo de inferiori- 
dade" que ele pudesse ter em relagao a seus irmaos 
maiores. 

O 



FIGURA3 

PLACA I/O TX2 - ENTRADA/SAIbA 

Placa TX2, montada com placa MB2 TX1 (Placa Mae), em computador 
TK85. 
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CURSO DE C®SOE3 TK 



AULA 3 



Pierluigi Piazzi 
Flavio Rossini 



Vamos aprender agora uma fungao muito interessante 
que possibilita o computador "chutar" numeros; para 
entende-la, imagine que dentro do computador existam 
INFINITAS cartas, cada carta possuindo urn numero 
compreendido entre 0 e 1 ; se voce ordenar: 



PRINT RND 



(NEW LINE) 



ora, o que voce espera obter? Novamente urn numero 
"chutado" so que desta vez entre 0 e 100, nao mais en- 
tre 0 e 1. 

Se tirarmos a parte INTEIRA deste numero, podere- 
mos usa-lo para jogar na LOTO. Para isto, existe a fun- 
gao I NT (tecla R): 

PRINT INT <100*RND> 



0 computador escrevera o valor da primeira carta. 
(Note que RND e uma fungao e portanto voce deve mu- 
dar o cursor para B e apertar a tecla T). Anote este 
valor num pedago de papel. Faga novamente: 



Assim, obt^m-se urn numero entre 0 e 99. 

Faga isto 5 vezes e voce tera 5 numeros para jogar na 
LOTO essa semana. Vamos entao agora "programar" o 
computador para que ele "execute" essasordens? Colo- 
que entao o seguinte programa: 



PRINT RND 



Anote o novo valor (que corresponde £ segunda carta) 
e repita a operagao; voce tera entao o valor das primeiras 
tres cartas. Desligue o computador; ligue-o novamente e 
repita a operagao; voce obtera novamente as primeiras 3 
cartas. No entanto, existe urn comando que faz com 
que o computador "CHUTE" qual a primeira carta que 
ele deve escolher deste monte INFINITO, estando as 
prdximas em seguida; dessa forma, voce obtera sempre 
sequences diferentes. Este comando e a KEY-WORD 
RAND; faga 



RRND 



(NEW LINE) (na tecla T) 



e a seguir execute a operagao acima. Desligue e ligue o 
computador faga RAND e repita. Desta vez os numeros 
serao diferentes (Se, por coincidence do destino, isto 
nao ocorrer, repita a operagao. Dificilmente voce ir3 
conseguir isto 3 vezes seguidas. . . ). 

Ordene agora o seguinte: 



PRINT 1 00*PNL> 



1© RRND 
20 PRINT 
30 PRINT 
4-0 PRINT INT 
50 PRINT INT 
50 PRINT INT 
70 PRINT INT 
80 PRINT INT 



LOTO” 



(RND *108) 
( RND* 100) 
(RND *100} 
(RND * 100) 
(RND *100) 



execute-o diversas vezes (RUN e NEW LINE). Cada vez 
em que ele for executado, ele pega as prdximas 5 cartas 
com numeros entre 0 e 1, multiplica-os por 100 e "des- 
preza" as casas depois da virgula; assim, cada vez, voce 
ter3 5 numeros I NTE I ROS entre 0 e 99. 

Observe que tivemos que repetir 5 vezes a mesma ins- 
trugao; imagine se precis^ssemos repeti-la 100 vezes. 
Nao seria muito agradavel ter que fazer isto. Felizmente, 
existem duas KEY-WORDS no TK que permitem orde- 
nar ao computador que ele execute diversas vezes uma 
(ou mais) instrugoes. Para isto, imagine que alguem pega 
para voce repetir 5 vezes uma dada palavra; para fazer is- 
to, cada vez que voce diz a palavra, voce deve estar 
"contando" em algum lugar da sua cabega ("memoria") 
o numero de vezes que voce a repetiu. Da mesma for- 
ma, se desejarmos que o computador repita uma dada 
mstrugao, precisamos dizer em que VARlAVEL da me- 
moria ele pode CONTAR o numero de vezes em que ele 
a repetiu. A estrutura deve ser a seguinte: 

>_ 
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C FOR variavel = n9 inicial TO nP final 
INSTRUCOES ASEREM REPETIDAS 
NEXT variavel 

As Key Words FOR e NEXT estao nas teclas F e N 
respectivamente; o TO est£ na tecla 4 (nao adianta escre- 
ver as letras T e 0; deve ser SHIFT 4); assim, o programa 
anterior poderia ser escrito da seguinte maneira: 



Execute o programa. Veja, voce ordenou que ele es- 
crevesse a prbpria variavel onde ele est3 CONTANDO. 
No entanto, como ele s6 tem 22 linhas dispom'veis, irao 
aparecer na tela os numeros de 1 a 22. Mas n6s queria- 
mos que ele contasse at6 50; ora, basta mand^-lo conti- 
nuar. Pressione: 

CONT (tecla C)e NEW LINE 



10 RRND 

£0 PRINT •‘LOTO" 

30 PRINT 

4-0 FOR 1=1 TO 5 

50 PRINT INT ( 100 *RND) 

60 NEXT I 

Note que usamos a variavel I para fazer com que ele 
contasse de 1 ate 5. Lembre-se sempre entao: para repe- 
tir uma ou mais instrugoes elas devem estar ENTRE um 
FOR e um NEXT A este tipo de estrutura chamamos 
LOOP de repetigao. Experimente entao executar o pro- 
grama. Que modificagao voce dever3 fazer se quisesse 
obter 1 0 numeros e nao 5? 

Neste ponto, v^rias observagoes sao necessarias: 

a) ao terminar um loop de FOR-NEXT, a variavel con- 
tadora estar3 com um valor de uma unidade maior do 
que o valor final da instrugao de FOR De fato, experi- 
mente fazer agora o seguinte comando direto: 

PRINT I (NEWLINE) 

b) a variavel contadora, ao contrario das variaveis usadas 
com a instrugao LET pode ter somente uma letra. Com 
a instrugao LET a variavel pode ter quantas letras quiser- 
mos ( inclusive numeros, desde que o primeiro caractere 
seja uma letra. 

c) a fungao INT fornece como resultado o numero intei- 
ro de valor imediatamente inferior ao seu argumento; 
assim temos: 

INT 5.76=5 
INT -5.76=-6 

d) numa expressao matem^tica, todas as fungoes (cursor 
0) tem prioridade maxima; assim, por exemplo, INT 
3.4* X 6 diferente de INT (3.4* X). No primeiro caso, 
sendo a fungao priorit^ria com relagao as demais opera- 
goes, teremos: 



e veja o que acontece. Repita novamente (quando o pro- 
grama parar) at6 obter os 50 numeros. 

Vejamos agora como executar o programa anterior 
sem que ele pare. Note que os numeros sao "impressos" 
de cima para baixo, parando ao chegar no fim da tela; 
existe um comando que faz com que os numeros sejam 
escritos de baixo para cima sem interromper o progra- 
ma. Este comando £ a KEY-WORD SCROLL (tecla B) e 
ao ser colocado ANTES do PRINT, ele simplesmente 
'Tola" a tela para "cima”; assim acrescente a linha 45; 

4-5 SCROLL 

e execute o programa. Veja o efeito. Perceba que para 
cada PRINT que colocarmos 6 necessario um SCROLL, 
experimente acrescentar mais duas linhas ao programa 
de maneira que ele fique: 



40 FOR 1=1 TO 50 

45 SCROLL 

50 PRINT I 

S3 SCROLL 

56 PRINT ** PflZ ** 

60 NEXT I 



Se voce nao colocar o segundo SCROLL, o programa 
nao funcionara. Execute entao o programa. Se voce 
desejar "para-lo" antes que ele termine (nao vale desligar 
o computador) basta apertar a tecla BREAK (a mesma 
do SPACE). Para continuar, e so apertar CONT; note 
que este ultimo sempre LI MPA a tela antes de mandar 
continuar o programa. 

Neste ponto, podemos falar um pouco sobre os nume- 
ros que aparecem no canto inferior esquerdo da tela 
quando o programa para; o numero a esquerda indica o 
"por que" do programa ter parado; o numero a direita, 
indica a linha onde o programa parou. Assim, o codigo 
0 indica tudo OK; se voce deixar o programa acima ter- 
minar "sozinho" voce obtera o codigo: 



INT 3.4*X=3*X 

Agora, retire as linhas 10, 20 e 30 do programa e 
substitua as linhas 40 e 50 de tal maneira que seu pro- 
grama fique: 



0/60 

(tudo OK; programa parou na linha 60). 

0 codigo D indica que o programa parou devido a um 
BREAK; se voce parar o programa assim, ira obter: 



40 FOR 1=1 TO 50 
50 PRINT I 
60 NEXT I 



D / numero que depende do instante em que 
voce apertou a tela 



> 
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Estes codigos aparecem no fim do manual do TK; no 
decorrer do curso, procuraremos analisa-los todos. 

Vamos agora relembrar o efeito do Retire as li- 
nhas 45 e 53 e, a seguir, modifique a linha 50 para: 

50 PRINT I; 

e execute o programa. 

A seguir, acrescente um; tambem no final da linha 56: 
56 PRINT M PR2“ ) ; 

Lembre-se bem do efeito do que e informar ao 
computador que o prbximo PRINT deverci ser feito ao 
lado da ultima coisa que foi impressa. 

Vamos melhorar um pouco a tela, modifique as linhas 
50 e 56 de tal maneira que o programa f ique: 

4-0 FOR 1 = 1 TO 50 
50 PRINT Ji " 

56 PRINT ”PRZ ", 

6© NEXT I 

Lembre-se que para obter o espago em branco deve-se 
apertar a tecla SPACE Apos executar o programa 
apague-o (usando NEW) e vamos introduzir uma nova 
fungao: TAB (letra P) que, analogicamente a uma ma- 
quina de escrever, faz uma tabulagao, ou seja, faz com 
que a impressao comece na coluna que desejarmos; ex- 
perimente fazer: 

10 FOR 1 = 1 TO 50 
20 PRINT TRB 10,1 
30 NEXT I 



Note que os numeros sao escritos a part ir da coluna 
10. 0 que aconteceria se modificassemos a linha 20 para: 

2© PRINT TRB I; 1 

Faga esta modificagao e veja o que ocorre. Voce esta 
usando uma variavel para fazer a tabulagao. Acrescente 
entao a linha 15: 

15 SCROLL 

e note o efeito. Note que quando o argumento do TAB 
for maior que 31, o computador "da a volta" para reco- 
megar a escrever no inicio da tela (para perceber isto no 
IP programa voce dever3 fazer dois CONTs). Para fir- 
mar bem o efeito do TAB e do SCROLL, altere nova- 
mente a linha 20: 

2© PRINT TRB U IjTflB (2*1) "X” 

execute o programa deixando a linha 1 5 SCROLL e a se- 



guir retirando-a. (Neste caso, nao esquega do CONT). 

Perceba que se o argumento da fungao TAB nao for 
inteiro, o computador automaticamente calcula a parte 
inteira para fazer a impressao na coluna certa. 0 mesmo 
e valido para a fungao AT 

Vejamos agora o efeito que a (virgula) causa na 
impressao’; modifique a linha 20 de tal maneira a termos 
o programa: 



10 FOR 1=1 TO 5© 
20 PRINT I , 

3© NEXT I 



Note que a virgula desloca a proxima posigao de 
PRINT de 1/2 tela. 0 que ocorre se voce modificar a li- 
nha 20 para: 



20 PRINT I,, 



Tente repetir o processo para 3, 4 e 5 virgulas e repa- 
re no efeito. 

Para finalizar as "palavras novas" deste capftulo, va- 
mos supor que quisessemos uma "tela" da seguinte ma- 
neira: 

21 

20 

19 

16 

17 

16 

15 

14 

13 

12 

11 

1© 

9 

6 

7 

6 

5 

4 

3 

o 

1 

0 

Isto pode ser feito de maneira analoga a que fizemos 
agora ha pouco para escrever na outra diagonal, se o com- 
putador contar de 21 para 0, ou seja, em contagem re- 
gressiva; para isto faga: 



10 FOR 1=21 TO © STEP -1 
20 PRINT TRB I; I 
30 NEXT I 



A palavra STEP esta na tecla E, e ela significa de 
"quanto em quanto" o computador deve contar. Note 
que ao ser omitida como fizemos at£ agora o compu- 
tador assume STEP igual a 1, ou seja, conta de 1 em 1; 
no caso, vai de —1 em —1 ; o STEP pode ter qualquer va- 
lor; experimente muda-lo para —2. 

Finalizando, vamos apresentar um pequeno programa 
para recordar o que vimos at£ aqui inclusive a fungao 
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LOTERIA 



10 RAND 
20 LET N = 10 
30 FOR I = 1 TO N 

40 LET A= INT (RND*22) 
50 LET B= INT (RND*32) 
60 PRINT AT A, B; I 
70 NEXT I 



Repare que a linha 40 "gera" um numero aleat6rio 
entre 0 e 21 e que a linha 50 um numero entre 0 e 31 
que correspondem respectivamente 3s linhas e colunas 
da tela; assim iremos escrever os numeros de 1 a 10 em 
lugares "aleatdrios" da tela. Experimente a seguir subs- 
tituir a linha 20 por: 

20 LET N = 20 

E execute novamente o programa. 

Exercfcios: 

1) Faga um programa que produza o efeito diagonal co- 
megando a direita em cima (como no penultimo progra- 
ma ) SEM utilizar STEP 

2) Faga um programa que escreva varias vezes a palavra 
AMOR em video reverso (que tenha no comego e no fim 

I um caractere de SPACE tambem em video reverso) em 
diagonal, comegando no canto superior esquerdo. 

■□□□□■ 



3) Faga um programa que gere 1 3 numeros aleatorios en- 
tre 1 e 3 e apresente a seguinte sai'da: 



* 

i 



a seguir, implemente a sai'da para que ela fique assim: 



LOTERIA 






1 




2 




2 




3 




2 




1 


^ 13 nds aleatdrios 


2 




3 









Jogo 1 


Coluna 2 




Jogo 2 


Coluna 3 




Jogo 9 


Coluna 1 




Jogo 10 


Coluna 2 




Jogo 1 1 


Coluna 3 




Jogo 12 


Coluna 1 




Jogo 13 


Coluna 2 





Note que a palavra CO LUNA nao deve aparecer deslo- 
cada nos jogos 10, 11, 12 e 13. Finalmente, estude um 
metodo para que a sai'da na tela seja: 



LOTERIA 


Col. 1 


Empate 


Col. 2 


Jogo 1 
Jogo 2 


X 


X 




Jogo 3 




X 




Jogo 13 






X 



4) Fapa um programa que "encha" a tela de asteriscos 
(* ) a partir da posipao 10, 10. _ 



POLO 
DOSAPO 




0000 0000 <9000 0000 

♦♦♦♦ O000 ♦♦♦♦ 0000 



» K ¥93 




ED 


p at 


¥9* 6 «.• 


SB 


n ft* 


p fi 



0 mals recente lancamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 

Emoclonante aventura onde vocA conduzirA o 
sapo desde o ponto de partida, ate uma casa vazia. 

Voc6 devera cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos que passam flutuando. 
Para adquirl-lo, basta enviar carta com seu nome 
e enderego completos. autorizando o prazo de 
entrega de 15 dias, anexando cheque no valqr de 
Cr$ 5.690,00, nominal d MULTISOFT INFORMATICA 
LTDA. ■ Cx. Postal 54.121 • CEP 01296 - S3o Paulo • SP 



GSH50FT 

INFORMATICA ltda.V^ 
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AULA 2 



Flavio Rossini 

Este curso foi escrito para as pessoas que jb estejam 
bastante familiarizados com o BASIC-TK mas que te- 
nham pouco ou nenhum conhecimento sobre linguagem 
de mbquina. 

Iremos inicialmente, introduzir o conceito de "micro- 
processador". 0 computador como n6s conhecemos 
consiste dos seguintes elementos principais: 

— o microprocessador (modelo Z80) 

— a membria 

— dispositivos de entrada (teclado, joystick) 

— dispositivos de saida (vi'deo, impressora) 

— memoria auxi liar (gravador K7) 

0 computador pode ser comparado por analogia a um 
ser humano, s6 que ele "fala" BASIC em vez de portu- 
gues. Assim, esse "ser" tern um cbrebro (que e o rricro- 
processador) e uma membria. Voce conversa com ele 
atravbs do teclado (para enviar informagoes) e da tela 
(para receber informagoes), usando o BASIC. Acontece 
que o microprocessador NAO entende BASIC ... Ele 
entende uma li'ngua muito mais simples e limitada a qual 
chamamos de linguagem de mbquina. Dessa forma, parte 
da membria do computador contem um programa escri- 
to em linguagem de mbquina capaz de TRADUZIR o 
BASIC, para que o microprocessador entenda os coman- 
dos, e, vice-versa, capaz de traduzir as respostas forneci- 
das pelo microprocessador. 

Nosso intuito sera o de conseguir conversar DIRETA- 
MENTE com o microprocessador na sua propria lingua- 
gem. E desejavel para isto que voce esteja bem familiari- 
zado com o funcionamento das instrugoes PEEK e 
POKE e com os numeros escritos em binario ou hexa- 
. decimal (caso voce nao conhega estes conceitos, comece 
lendo a aula 1 (MICROHOBBY nP 2). 

Alem disso, vamos comegar a entender como funcio- 
na o programa tradutor, utilizando para nossos progra- 
mas algumas subrotinas jb existentes ou valores de algu- 
mas variaveis por ele utilizadas para controle do sistema. 

Vbrios programas serao apresentados e jb na primeira 
parte do curso conseguiremos realizar um SCROLL ao 
contrbrio, passando a truques para lidar com a TV e o 
teclado e finalizando com um incrivel programa chama- 
do LIFE, cuja listagem estamos publicando neste nume- 
ro da revista. 

Estude com cuidado CADA programa e procure res- 
ponder a TODAS as questoes que acompanham o texto 
antes de prosseguir a leitura. No final de cada aula have- 
ra eventualmente exercicios para serem resolvidos que 
foram feitos nao so para recordar os conceitos aprendi- 
dos mas tambem com o intuito de introduzir alguns 
"truques" e conceitos muito importantes. Portanto, 
sugiro que voce faga os exercicios de cada aula antes de 
prosseguir para o seguinte. 
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Seria aconselhavel que voce tivesse uma expansao de 
memoria de 16 K para que possa executar os programas 
mais interessantes deste livro, embora ela nao seja estri- 
tamente necessbria para aprender a linguagem de mb- 
quina. 

Voce poderia se perguntar: o que esta linguagem tern 
para me oferecer? A resposta resume-se a duas palavras: 
RAPIDEZ e CONTROLE, e voce perceberb logo mais. 

Bom, seja bem vindo ao Universo da Linguagem de 
Mbquina. 



O QUE E A LINGUAGEM DE MAQUINA; 

O PROGRAMA INTERPRETADOR 

A linguagem de mbquina (tambem chamada de 
ASSEMBLY) e a "li'ngua" que o microprocessador en- 
tende. Ela consiste, assim como o BASIC, de uma serie 
de instrugoes, cada uma das quais comanda o micropro- 
cessador para que ele faga uma tarefa especifica. Entre- 
tanto, ela e uma linguagem de baixo nivel, o que signif i- 
ca que instrugoes complicadas como loops de FOR/ 
NEXT ou calculos de fungoes matem^ticas (SIN, COS, 
EXP, RND, etc.) nao sao dispomveis; pode-se usar ape- 
nas instrugoes que comandam diretamente o micro- 
processador. 

0 que significa exatamente "linguagem de baixo nf- 
vel" com instrugoes que comandam "diretamente" o 
microprocessador? 

0 problema e que o microprocessador, por ser um 
circuito eletronico, sb b capaz de entender dois niveis de 
tensao eletrica que chamamos simbolicamente de 0 (ze- 
ro) e 1 (um). Portanto, somos obrigados a conversar 
com ele usando codigos formados por "cadeias" (se- 
quences) de 0s a Is, onde cada 0 ou 1 e chamado BIT. 
Assim, por exemplo, o codigo 10000101 poderia signi- 
ficar "some dois numeros", o codigo 1010001 "pare o 
programa", etc. Alem disso, o microprocessador sb e ca- 
paz de entender 8 bits (1 byte) por vez. Dessa forma, ca- 
da instrugao e cada dado deve, obrigatoriamente, consis- 
ts de um ou mais grupos de 8 bits. No caso de numeros, 
o numero maximo que podemos representar em 1 byte 
b 255. Se o numero for maior que 255 ele devera ser 
"quebrado" em 2 ou mais bytes para que o microproces- 
sador possa entende-lo. 

Acontece que para o ser humano nao e muito facil 
conversar em 0s e Is (basta tentar imaginar uma pagina 
cheia de "cbdigos" em 0s e Is). Assim convencionou-se 
que os bits seriam agrupados de 4 em 4 substituindo-os 
pelos correspondentes algarismos em HEXADECIMAL. 



> 
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Portanto, se quisermos falar diretamente com o mi- 
croprocessador, devemos lembrar que ele s6 entende 
bits, e cada instrugao consiste em um ou mais bytes que, 
para maior facilidade de entendimento, sao escritos em 
HEXADECIMAL, correspondendo, entao, cada byte a 
dois digitos hexadecimais (por exemplo C9, D4, 37, etc.). 
(OBS. : para quern nao estb familiarizado com as nota- 
g 5es acima indicadas, sugerimos novamente que, antes 
de prosseguir, leia a aula 1 , numeros binbrios e hexadeci- 
mais, bit e byte, PEEK e POKE). 



A MEMORiA DO COMPUTADOR: ROM E RAM 

Assim como as instrugoes sao sempre divididas em 
grupos de 8 bits, a membria do computador tambbm e 
dividida em regioes capazes de armazenar apenas 8 bits 
cada uma. 

A membria pode ser imaginada como uma pilha de 
"registros" capazes de armazenar apenas um byte cada, 
sendo que cada registro tern um enderego que, no caso 
do TK, pode ir de 0 atb 65535 (correspondendo a 0000' 
ate FFFF em hexadecimal) (Fig. 1.1). 



ENDE- 

RECO 

DECIMAL 


ENDERECO 

HEXA- 

DECIMAL 


CONTEUDO 

DA 

MEMORIA 


CONTEUDO 
EM HEXA- 
DECIMAL 


0 


0000 


0 


1 


1 


0 


1 


1 


1 


1 


6F 


1 


0001 


1 


0 


0 


1 


0 


1 


1 


1 


97 


2 


0002 


1 


0 


1 


0 


1 


0 


1 


1 


AB 


3 


0003 


0 


0 


1 


1 


0 


1 


0 


1 


35 


4 


0004 


1 


1 


1 


0 


1 


1 


0 


1 


ED 


5 


0005 


0 


1 


0 


0 


1 


1 


1 


0 


4E 



65530 

65531 

65532 

65533 

65534 

65535 



FFFA 

FFFB 

FFFC 

FFFD 

FFFE 

FFFF 



1 


1 


0 


0 


0 


0 


0 


1 


0 


1 


0 


0 


0 


0 


0 


0 


0 


1 


0 


0 


0 


0 


1 


0 


1 


1 


1 


1 


0 


1 


0 


1 


0 


0 


1 


1 


1 


0 


1 


0 


1 


0 


1 


1 


1 


0 


0 


1 



Cl 

40 

42 

F5 

3A 

B9 



Fig. 1.1 : Exemplo de como pode ser imaginada uma membria com 
seus respectivos enderegos e conteudo; note que o conteudo de 
um registro de membria tern sempre 1 byte (8 bits) podendo ser 
representado com 2 digitos hexadecimais e seu respectivo endere- 
<?o 2 bytes (16 bits), podendo ser representado com 4 digitos he- 
xadecimais. 



A memoria b basicamente dividida em duas partes: a 
primeira chamada ROM (Ready Only Memory), foi pre- 
viamente gravada por processos especiais e contbm o 
programa que interpreta a linguagem BASIC, ou seja, 
"traduz as instrugoes do BASIC para a linguagem de mb- 
quina. Esta regiao da membria b inalterbvel, nao' poden- 
do, portanto, ser escrita (apenas lidas) e nao perde nun- 
ca seu conteudo, mesmo desligando-se o computador. A 
segunda, chamada RAM (Random Access Memory) e al- 
teravel (pode ser lida ou escriga), e e onde sao armazena- 
dos o conteudo da tela de TV, os programas em BASIC 
devidamente “traduzidos" pelo interpretador (ROM), as 
variaveis dos programas e, inclusive, os futuros progra- 
mas em linguagem de maquina que faremos neste curso. 
Ela perde seu conteudo desligando-se o computador. 

Note que o programa interpretador (ou tradutor) que 
estb na membria ROM b escrito em linguagem de mbqui- 
na, pois o microprocessador deve ser capaz de entende- 
lo. Entretanto, como todo programa, ele possui varia- 
veis, que devem ser, obrigatoriamente, colocadas na 
RAM (caso contrario nao seriam varibveis). Assim, ele 
reserva para si o I N 1C 10 da membria RAM, mais precisa- 
mente os enderegos 16384 a 16508 para colocar suas 
proprias variaveis. 

Portanto, os programas que fizermos em linguagem 
de mbquina deverao ser colocados em alguma regiao da 
membria RAM, inteligentemente escolhida para que nao 
afete o andamento dos demais programas (eventuais pro- 
gramas em BASIC), a propria tela de TV ou as variaveis 
do programa interpretador. Quando programamos em 
BASIC estes cuidados nao sao necessarios, pois o progra- 
ma residente na ROM se encarrega de colocar as instru- 
goes em lugares adequados da RAM. 



HEXADECIMAL 
_ 0000 



I 

ROM 

I 

◄ 



RAM 



.FFFF 



PROGRAMA 

INTERPRETADOR 



VARIAVEIS DO PROGRAMA 
INTERPRETADOR 



PROGRAMAS 
EM BASIC 



TV 



VARIAVEIS DO 
PROGRAMA EM BASIC 



LIVRE 



DECIMAL 



16384 



16508 



65535 



RAMTOP 



Fig. 1 .2: A memoria do TK — a membria sb irb atb 65535 se usar- 
mos a expansao de 64 K. 

Na prbxima aula, veremos entao COMO e ONDE po- 
demos colocar um programa em linguagem de maquina 
no computador. 
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QUEBRA-CABEQA 




Motoqueiro no Deserto 






MENSA 

International 



Era uma vez um motoqueiro, nao muito inteligente, 
que vivia numa aldeia a beira do deserto. Sua moto tinha 
um tanque no qual cabia combust ivel suficiente para an- 
dar 300 km e na aldeia ele tinha um total de combusti'- 
vel (incluindo o da moto) suficiente para 900 km. 0 mo- 
toqueiro nao podia transportar nenhum vasilhame con- 
tendo combustivel, mas podia levar consigo sacos de 
pl^stico vazios para enche-los com parte do combust f- 
vel do tanque. Estes sacos, enterrados na areia, forma- 
vam um reservatbrio que poderia ser usado posterior- 
mente. 

0 motoqueiro, apesar de nao muito inteligente, obe- 
decia fielmente as instrupoes que recebia, por exemplo 
assim: 

10 ENCHA 0 TANQUE NA ALDEIA 
20 PENETRE 100 KM NO DESERTO 
30 FAQA UM RESERVATORIO COM COM- 
BUSTlVEL PARA 100 KM 

40 VOLTE PARA A ALDEIA 
50 ENCHA 0 TANQUE NOVAMENTE 
60 VA ATE 0 RESERVATORIO 



70 COLOQUE 0 COMBUSTIVEL DO RE- 
SERVATORIO NO TANQUE 

80 PENETRE MAIS 100 KM 
90 PLANTE UMA BANDEIRA 
100 VOLTE PARA A ALDEIA 



Ele cumpriria fielmente as instrugoes e acabaria plan- 
tando uma bandeira a "200 km" da aldeia gastando 
combustivel para "600 km". 

Agora, para variar um pouco, ao invbs de programar 
seu TK voce vai programar o motoqueiro. 

Lembre-se, ele s6 tern um total de combustivel sufi- 
ciente para 900 km e no tanque da moto cabe o equi- 
valente a 300 km. 

Tente fazer o motoqueiro plantar a bandeira o mais 
longe possi'vel da aldeia (regressando a salvo, obviamen- 
te). 

Quern mandar o melhor programa para motoqueiro 
fazendo-o chegar o mais longe possi'vel, receber^ o pre- 
mio costumeiro e mais o titulo de "Raposado Deser- 
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CHEGA 

DE 

PROBLEMASi 

Use Tig Loader 



TIG-LOADER possibilita: 




APENAS: 

CR$ 15.000,00 



• a localizagao do otimo volume do gravador, 
facilitando a operagao LOAD. 

• DUPLICAR qualquer programa, mesmo aque- 
les "fechados”. 

• carregar (LOAD) e DUPLICAR simultanea- 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operagSes LOAD, SAVE ou 
DUPLICAQAO atrav^s de tone. 

• filtrar as interferences eletricas de baixa 
frequence, que sao a causa da maioria 
dos problemas de LOAD/SAVE. 



APLICATIVOS PARA TK 

TIG-SCREEN: vinte e sete rotinas de vi'deo, para incrementar seus programas! 
Inversao de video, moldura, arquivo de imagens, rotagao, scroll em quatro 
diregSes, etc... efeitos visuais incriveis! Em linguagem de maquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois 6 so utiliza-lo onde quizer! 
P/16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP: coloque, em seus programas em BASIC, a velocidade de 
cddigo de maquina. Rodeos na forma COMPILADA! Simples de usar, 
e s6 carregar ou digitar o seu programa em BASIC e depois usar 
o TIG-COMP. Pronto! Voce tera o seu programa em linguagem de maquina em 
instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED: uma combinagao de soft e hardware, permitindo uma transference 
de dados micro/cassete de 4.200 bauds. Voce podera carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a fungao VERIFY. Facilimo de 
operar, compoe-se de cassete, interface e manual explicativo. 

P/ 16 e 48 K Prego sob consulta. 



Envie seu pedido + cheque nominal cruzado 
Prazo de entrega : 1 5 d ias 
Pregos validos ate 10/09/83 
Despesas postais inclufdas nos pregos 

Atendemos somente por carta TIGRE COM. DE EQUIP. PI COMPUT ADORES LTDA. 




Rua Correia Galvao, 224 
CEP 01547 -Sao Paulo - SP 



QTD 


ARTIGO 


PREQO 


TOTAL 


































TOTAL DO PEDIDO: 





SIM, desejo receber os produtos acima relacionado, para o que estou anexando o cheque n- no valor 

de 



NOME 

ENDEREQO 

CEP CIDADE ESTADO 

PROFISSAO DATA NASC. / / 

MICROCOMPUTADOR 
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RESPOSTA DO QUEBRA-CABEQA 



O Banqueiro e o Ministro 




Para resolver o quebra-cabepas, "0 Banqueiro e o 
Ministro", comecei por fazer o c^lculo do numero N, 
proposto no problema, para algumas partipoes P do ano. 

P = 2 N = 1.5 X 1,5= (1,5) 2 = 2,25 

P = 4 N = 1,25 X 1,25 X 1,25 X 1,25 = 

= (1 ,25) 4 = 2,44 



P = 8 N = (1,125)® = 2,57 



A essa altura, ja pude ver que a fbrmula generica de 
N e: 

N = ( 1 + y) p 

onde Peo numero de partes ern que est3 dividido o ano. 

Acontece que a formula obtida, e muito conhecida do 
Ccilculo. E sabe-se que quando P tende ao infinito, o va- 
lor de N tende ao numero "e" que vale aproximadamen- 
te 2,7182818. Escreve-se: 

lim ( 1 + 4-) p = e * 2,7182818 



Ora, se para urn numero P tao grande quanto desejar- 
mos, N nao ultrapassa 2,72, entao os juros nao podem 
ser maiores que 172%, por mais pequena que seja a uni- 
dade de tempo usada para a cobranga de juros. 

Em seguida fiz urn programa (fig. 1) que mostra que 
quando aumentamos o valor de P, N tende a ”e". 

P programa comega com urn P = 1; depois P = 2; 
P = 4;P = 8;P = 16...; mostra a unidade de tempo T 
que se esta tomando para a cobranga dos juros e o valor 
de N. 



1 REM O BRNO. E O MINISTRO 
10 LET PART = 1000 ^60 *60 *24 *365 
20 LET P=1 

30 LET N = INT ( 10000 *( 1 + 1/P) * *P 

/ 10000 

4-0 LET T=PRRT/P 
50 SCROLL 

50 PRINT = T = n ; INT T/10 

00 j T RB 24; •*N = ,, ;N 
70 LET P=P*2 

80 IP P/2<PRRT THEN GOTO 30 
90 SCROLL 

100 PRINT T RB 2;PftRT; ,, P/T=0.001 

SEG " 

fig. 1 

Ao rodar o programa, vi que para P = 32768 (o que 
corresponde a tomar como unidade de tempo 949,2 
seg.) N ja assume o valor de 2,7182, permanecendo 
constante para valores inferiores a 949,2 s. 

Com espanto vi que o nosso TK82C nao pode calcular 
N, com precisao, a partir de carto valor de P, o que nos 
impede de calcular N para o mil^simo de segundo (ms). 

A partigao do ano para o milesimo de segundo P ms e: 



P ms = 365 X 24 X 60 X 60 X 1000 = 
= 3,1536 X 



Como 3,1536 X 10 1 * e muito maior que 32.768, po- 
demos assumir com acerto o valor "e" para N, quando 
usamos como unidade de tempo 0,001 seg. 

Agora, respondendo aos itens do quebra-cabega: 

A) Como o Super-Ministro toleraria juros de ate 180% e 
sabia que pela proposta do banqueiro estes nao pode- 
riam ultrapassar 172%, concluimos que o banqueiro fez 
papel de trouxa (nao, quern fez fomos nos! n.d.e.) 

B) 0 capital C valera no fim de urn ano aproximada- 
mente: 



2,7182818 XC 
N *2,7182818 






C) Log e 2,7182818 — 1, pois 
e‘ss 2,7182818 

> 
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1 



1 



0 programa pedido no quebra-cabega e o seguinte: 



1 REM ROGRfiMR 2 
5 DIM P(9) 

10 PRINT l, TRXP PNURL” 

20 PRINT " UNIDRDE TRXR DE 

JUROS 

30 LET P C1J =1 

40 LET P (2) =2 

50 LET P (3? = 4 

60 LET P <4; =12 

70 LET P (5) =365/7 
80 LET F (6; =365 
98 LET P(7)=P(6)*24 
103 LET P(8) =P (7) *60 
113 LET PC9/=P<8>*68 
128 PRINT 

138 PRINT , ‘PNO ,, , j '‘5EHESTRE" j , **T 
RIMESTRE , ‘ , , , "SEHftNP " , , "DIR 

, "HORft ** , , TilNUTO" , , "5EGUNDO" 
148 PRINT RT 3,16; 

150 TOR C=1 TO 9 

160 LET J=( (1+1/P(C) ) **PCC) -i) * 
130 

170 IP J > =8 . 54 INT J THEN LET . J = 
J*1 

150 FRINT INT J;TRB 13, 

193 NEXT C 



fig. 2 





PEQUENOS 

ANUNCIOS 



Vendo TK82-C com expansao de 16 K ou troco e vol- 
to a diferenga pelo TK85 (16 ou 48K). Prego base: 10% 
abaixo da tabela "Microdigital". Cx. Postal 177 — Join- 
ville — SC, c/ Claudio. Aceito propostas. 



Vendo um microcomputador TK82-C, uma expansao 
de 16 K, um joystick, uma fita com jogos e o livro "49 
Explosives Games for ZX-81", por Cr$ 145.000,00 — 
Joao Rogerio — tel. : 238-6978 (Rio de Janeiro)’. 



Medico anestesista procura alma gemea para intercam- 
bio informbtico em TK — Roberto Araujo — R. 
Uruguay, 205 - ap. 803 — Rio de Janeiro — RJ. 

Desejo trocar circuitos, informagoes e programas, 
principalmente jogos para OTK82-C com 16K -Ricardo 
Collorio - R. Antonio Zini, 33 — 95680 — Canela — RS. 



CP-200, vendo por Cr$ 170.000,00 e uma calculadora 
Sharp 1211 com impressora e interface para K-7 por 
CrS 160.000,00 (ambos com garantia) - J. Maldonado 
-Tel.: (01 1) 452-6617 ou 452-6835. 



TK82-C — Jogos utilitbrios e aplicativos. Vendo ou 
troco. Marco Antonio - tel. 247-4071 — Rio de Janeiro. 



Nota da Redagao: ate a data do fechamento recebemos 
respostas corretas tambem de: 

WALDIR COSTA SOLA 
SAMUEL EJCHEL 
ALEXANDRE G.F. LIMA 
FAUSTO DALLARE 
JACQUES J. ABRAM 
ALLAN CHAMECKI BRIK 
LUIS GUI LHERME BAROUCHEL 
ROBERTO MARQUES BEKMAN 
HERMELINDO PINHEIRO MANOEL 
CARLO FILIPO FITTI 
FERNANDO R.C. NEV MORAES 
ELOY WINTER JUNIOR 
DINEU B A DE OLIVEIRA 
DARIO JOSE SLOMP 
TEUCLE MANNARELLI FILHO 
JOSE ISSAMU YAMADA 
AMAURI S. SOUZA 
ENIO E. KRANEN 

MARCELO P O. GOMES ~ 



Servigo de Datilografia — IBM. Teses, apostilas e ma- 
nuals tecnicos. Telefone: 258-8486 — Americo — SP. 

Vendo Timex Sinclair 1000 — Expansao de Membria de 
64 K - HRG (Perifbrico para alta resolugao) — l/F (In- 
terface para saida RS-232) e Programas -Tel.: 270-3368 
(falar com TAN I OS). 

Vende-se um TK-82C com expansao de 16 K. Tratar 
com Jose Luis — Tel.: 274-5995 — Final de semana. 

MICRO BITS 

CLUBE NACIONAL DOS TK/NE/SINCLAI R - Caixa 
Postal 1 2464 — 04798 — Sao Paulo — SP. 

Vendo computador TK-82 c/ 16K. Sistema completo: 
c/ SLOW e chave p/ vfdeo-reverso mais gravador Natio- 
nal, mais 6 fitas de programas (Microsoft) e jogos, 6 li- 
vros importados c/ truques e dicas sensacionais p/ o TK. 
Tudo p/ 180.000,00. Aceito contra-oferta. Tratar c/ 
Roberto — Tel.: 853-6713 b noite. n 




Xadrez 

Divulgapao e 
Empreendimentos Ltda. 



TUDO PARA A PRATICA 
DO REI DOS JOGOS 

Xadrez Eletronico 
Tabuleiros e pe^as 
Mesas e relogios 
Livros e revistas 
Aulas e Simultaneas 
Orgamzapao de Torneios 

Av. Brig? Faria Lima. 1644 sbl 61 - 01452 Sao Paulo SP 
Fones: (011) 814-9340 814-9539 
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COMO F A7.FR 
SUA ASSINATURA 



A nossa revista nao serci distribuida nas bancas. 

Para obter seu exemplar mensal # contendo muitos 
programas para o seu TK, muitas dicas e premios 
interessantfssimos, voce devera fazer uma assinatura: 
o prego anual da assinatura e de Cr$ 1 1 .800,00. 

Porem, at6 30 de setembro, manteremos o prego de 
Cr$ 9.900,00, com direito a uma fita in£dita de jogos: 
Sao Paulo (2K) 

Mansao Maluca (16K) 

cujo valor comercial 6 superior a Cr$ 6.000,00. 

Para tanto, voce devera preencher corretamente 
o cupom anexo (nao esquecendo de assinalar o brinde 
de sua escolha), e coloca*!o num envelope, junto a urn 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAQ0ES E MATERIAL DIDATICO LTDA., no 
valor de Cr$ 9.900,00 (oferta valida ate 30 de 
setembro). 



O envelope devera ser selado e enderegado a 

MICROMEGA P.M.D. LTDA. 

Caixa Postal 60081 — CEP 05096 
Sao Paulo - SP 



No verso do cheque escreva: 

"Destma-se ao pagamento de uma assinatura 
(12 numeros) da revista MICROHOBBY" 

Quando este cheque for devolvido ao seu Banco 
com nosso endosso, servira de comprovante provisorio 
ate que nosso recibo seja enviado pelo correio. 

O 



O QUE ESTA 
RESERVADO 
PARA O N?4: 



tippkz 

f® 



POR DENTRO DO 

Suplemento especial para o usuario do TK aprender a 
lidar com computadores compati'veis com a linha 

APPLE. •marca registrada da APPLE Computers, inc 



PROGRAMAS DO LEITOR: 

O Professor — um utili'ssimo programa did^tico. 

Othello - um desafio a sua inteligencia. 

I-CHING — livro das mutagdes. 

PROGRAMAS DO M£S: 

Pentaspeed-como gravar e ler programas no TK82 com 
uma velocidade 5 vezes maior. 



DICAS: 

Como usar o mapa da RAM do TK. 




CURSOS: 

Aula n? 4 do Curso de Basic. 

Aula n? 3 do ASSEMBLY. 

PEQUENOS ANUNCIOS: 

Envie seu pequeno anuncio para ser publicado gratuita- 
mente. 

NOVIDADES: 

TK83: o novo "design". 

TK85: mais fungoes especiais. 

O 
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PREPARE-SE PARA O 




No NUCLEO voc§ pode se inscrever escolhendo as mat6rias, dependendo de suas reais necessidades, 
aproveitando ao m&ximo seu tempo. 

Se o seu problema 6 MATEMATICA, FISICA, QUIMICA, BIOLOGIA, GRAMAUCA, REDAQAO, FRANCES, 
ETC., temos os melhores professores dos melhores cursinhos de SSo Paulo, para Ihe dar um 
atendimento INDIVIDUALIZADO. 




) 



Informagdes e inscrigoes 
para turmas de /7V2YI 




i 



Nucleo 

orientacao 
estudos 




Av. Brig. Faria Lima, 1451 • 3.° • Cj. 31 
Tel.: 81 3-4555 • CEP 01451 - Sao Paulo - SP 



Desgravador e rejuvenescedor instantaneo 



de frtas K-7 




PARA 
APAGAR 
BASTA PASSAR 
A FITA IOA E 
VCXTA PELA 
ABERTURA 




micromega 



Sistema: PASSOU... DESGRAVOU 
GARANTIA DE 5 ANOS 



r win iio 

* Desgrava e rejuvenesce em apenas 4 segundos, qual- 
quer fita cassete independente de sua durag3o, elimman- 
do todos os rui'dos e chiados decorrentes de frequentes 
regravagoes. 

* Poupa o desgaste da fita e do gravador. 

* Poupa tempo e melhora a qualidade do som da fita casse- 
te na reutilizagSo da mesma. 

* Gravando em cima de outra grava<?5o, a qualidade da re- 
produgSo e consideravelmente prejudicada, alem de criar 
confusdes, principalmente se a gravagSo anterior for de 
duragSo maiscurta. Desgravando com o TWIN-GO, nada 
disso acontece. 

* 0 TWIN-GO 6 indispens^vel a todos os profissionais e 
amadores, usu£rios de fitas cassete. 



Pedidos por carta 6 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 - CEP 05096 - Sao Paulo-SP 

anexando Cheque Nominal ou Vale Postal, 
induindo mais despesas de frete no valor 
de Cr$ 500,00, autorizando o recebimento 
da compra no prazo de 15 dias. 






Caracteristicas Tecnicas 

• Unguagem BASIC 

• 10 Kbytes de ROM 

• 16 ou 48 Kbytes de membria 
RAM. 

• 40 teclas e 160 fungbes. 

• GravagSo de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Video: aparelhos de TV B&P 
ou colorido. 

• Fungbes especials 
HIGH-SPEED. 

• Som Opcional. 

• Joystick, impressora. 

Prego de langamento: 

CrS 219.850,00 (16 K) 

CrS 289.850,00 (48 K) 

(Prego sujelto a alteragdo) 



'•‘fa 0 ,**** 



■uei ; 

eCl inbe ttl ’ 















as Sl v^ c C° T 







REVENDEDORES: ARACAJU 224-1310 • BELEM 222-5122/2266518 • BELO HORIZONTE 226-6336/225 3305/225-0644/201 7555 • BLUMENAU 22 1250 • BRASILIA 224 2777/225 4534/226-9201/ 
* BRUSQUE 55-0675 * CAMPINAS 32 3810/8-0822/32-4 1 55/2 9930 • CAMPO GRANDE 383-648 7 /382-533 2 • C A R U A R U 7 2 1-12 7 3 *CUI A BA 321 -811 9/321 7929 • CURTTI - 
42^431731/2236944/2336572/232-1 196 • DIVINbPOLIS 221 2942 • FLORIANbPOLIS 23-1039 • FORTALEZA 226-4922/231 524923lW7tt3 7013 * FREDERICO 
WESTPHALEN 344 1550 • GOIANIA 2616333/^246557 • IJUI332-27"' “ 1T * «« oam . . > U c „ o.oo - , f !^l. !. u .L J _T: HtDtR,co 



BA 232- 1 750/224-6467/224-342! 



226-4327/242-6344/242-5159 • BRUSQUE 556675 • CAMPINAS 32 -3810/8-0822/32-4 1 55/2 9930 • CAMPO GRANDE 3836487/382 5332 • CARUARU 721-l273 _ » CUIAB 

fINOPOLIS 221 2942 • FLORIANbPOLf 

RINA 22-4244/239674 • MACE lb 2233979/22 

,... v HAMBURGO 93 1 922/933600 • PELOTAS 24-51 39 • 

1£2;3«1£4^1/2W^^^ RESEN DE54-1 664 . RIBEIRAO PRETO 636 0586/634-4715/ 



243-1731/223-6944/2338572/232 1196 • DIVINbPOLIS 221 2942 • FLORIANb - rncutniVjU 

A 26 16333/2246557* I JUI332-2740* ITAJUBA 622-2088* LINS 22-2428* LONDRINA 22-4244/239674 • MACEl6 2233979/22 16776 • MANAUS 237- 1793* MO- 
Gl DAS CRUZES 468 3779/2086797 * MURIARE 721 1593 • NATAL 222-3212/231 1055 * NITERbl 7226791 * NOVO HAMBURGO 931922/933000 * PELOTAS 245139. PORTO ALEQRE»«S/ 



635-1195* RIO DE JANEIRO 267 1 093252 2050/253 3395/26401 43/253 1 5 1 6/232-5948/59 1 -3297/2226088/267 1 339/329-4869/228-2650/24/ 

235-4 184/247-571 7 -SANTA MARIA 221 7120* SANTO ANDRE 45349“ 

• SAO JOSE DOS CAMPOS 22 3968/22 7311/22 8925/21-3135 



3/259 1 5 1 6/232-5948/59 1 -3297/2226088/267- 1 339/329-4869/228-2650/246-4824/239-56 1 2/542-3849/626737 • SALVADOR 2486666/ 
6-4962/444- 7375/454-9283 * SANTOS 4- 1 220/32-7045/33 1 792/332230 • SAO CARLOS 7 1 9424 • SAO JO AO DA BOA VISTA22-3336 

• SAO PAULO 8536 1 64/8530448/2394 1 22/36-696 1/61 -4049/88 1-11 49/258-3954/2 1 2-9004/282-21 05/2 1 2-38^M34 7^227-^2^ 

VKJOSA^^i M AFU LJA 334^0^^ 1 49962 1 -3 779/2797442/2 1 9768 1 /8 1 3403 1 * SOROCABA 32-9988 * TAUBATE 31-4137 * UBERABA M3^^1 • UBERLANCMA 



